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Ao Leitor 


Estamos entrando em mais um plano econômico 
e, é claro, torcendo para que tudo dê certo. Não será 
por falta de torcida que desta vez as coisas não 
funcionarão. 


Mas, o mes de junho produziu algumas 
aberrações, nos acertos e acordos para a mudança 
da moeda, que fomos obrigados a adiantar a produção desta edição. No 
entanto, as mudanças de última hora acabaram por impor umanova ordem 
das coisas: circular a edição somente após a vigência do Real. 


Com isso, algumas seções da revista, já tradicionais, não ficaram 
prontas à tempo de integrar esta edição. De qualquer forma, a partir do 
próximo mês tudo volta ao normal (e esperamos que isto também ocorra 
na economia). 


Renato Deglovanl 





Neste Número 


CAPA 

PROGRAMANDO EM MODO SUPER VGA 

Renato DeCIOVANI aa assdanaAao sun is an ai aasa acao Du qc i dus ida Loca Danada Gaio CORO Ralo aa 14 
ARTIGO 

PROGRAMAS POUCO AMIGÁVEIS 

Flavio Massao Matsumoto ...........cccceceerrererreceeaerecen ren ee rente res casco rentes ra cescnaas 6 
CURSO 

VISUAL BASIC - Parte 6 

RICArdo FIOTOS a SEA O era PR GOO dd sb Leads Dis De ao ris ba adia S ds 10 


PROGRAMA 
CÓPIA DE SEGURANÇA 
Valmir Menegaz de SOUZA « isssasii nin astadsdsdae sanita cinat abusa CUiSiaTS 24 


SORTE GRANDE 
Alvaro Vieira Arloverde Neto ..........eecececeereereeceeeerrenee veres tes eoeacrecesencsnsencenceato 38 


ROTINA 
ROTINAS PARA TURBO PASCAL 
Rafael Guimarães de Sá ..........eeeereree cerne core ee rea ceneec eee aeatecee sec rencesseaceea 42 


SENHA 
Difceu-da Rosa Portela q msianecasissoitoaa sono SEdiod cello lcd e End co lsl Lea dsBIs dota dus delas ds dadas ón a 46 


EXTENSO 
Mauro LUCIO- da SINA essas pu aa DE ed Co dl Ga ETA e O DE dA dat ada 56 


SEÇÕES 


O a a o 
MICRO SISTEMAS 3 








INEP a Tea es mineira nrra 


TOR ARA T eTar mremmr isiparare 


RE RPA ep Ei Ea 


AMP SA MIR 2 e pu prt 


TE erram ag cs 


epa efe qro Paper dep ci caimpe mirar vis 


terna DI E LS La, ob cam A O A qa 





Bits & Bytes 





Makron Books lança 
livros na Fenasoft 


Pela oitava vez concecutiva, a Makron Books participa 
do mais importante evento na área de informática: a Fenasoft, 
que acontecerá de acontecerá de 19 a 22 dejulho, no palaácio 
das convenções do Anhembi, em São Paulo. 

Durante a oitava Fenasoft, a Makron Books colocará a 
disposição do público em geral, além de diversos lançamentos 
nos setores de informática, negócios e de temas diversos, 
grande parte do acervo bibliográfico da editora. 

Detendo aprocimadaamente 40% do mercado editorial 
técnico, a Makron Books conta atualmente com 250 títulos 
publicados na área de informática e foi a primeira editora a 
lançar livros de IBM PC no Brasil. 

Principais lançamentos: 

Head- Guia AutoCad 3D 

Siegel - Dominando o Fox Pro 2.5 for Windows com apêndice 
v.2.6 

Russel - As leis de Murphy para o Windows 

Carvalho - WindowsNT 


CADDesigner participa da 
oitava Casa Cor 


À partir de 31 de março até 03 de julho, período em que a Casa 
cor estara aberta ao público, a partir das 11:00hs em São Paulo, 
apresentando 44 ambientes de desenvolvimento da mansão de 
1220 m2 por 59 renomados decoradores brasileiros, os vistantes 
terão oportunidade também de conhecer o serviço da 
CADDesignner Computação Gráfica, que através da utilização 
de sofisticados software, possibilitam aos usuários finais apreciar 
os resultados obtidos na aplicação de materiais, iluminação e 
dimencionamento de todos os equipamentos da decoração. 

A participação da CADDesigner acontece dentro do texto 
estabelecido pelos organizadores da Casa Cor de atender aos 
mais exigentes gostos da sociedade, facilitando a leitura dos 
projetos de ambiente de interiores ou exteriores, já que os 
equipamentos manufaturados podem ser vistos na tela do 
microcomputador, com todas as cores reais e devidamente 
dimencionados. 

A partir deste momento o serviço da CADdesigner abrange 
particularmente a possibilidade de leitura dos projetos de todos 
os angulos do ambiente decorado, partipando diretamente no 
processo decisório dos usuários finais. 

Aos decoradores e designers, a computação gráfica tem sido 
uma importante ferramenta de comercialização de seus produtos, 
enquanto aos consumidores um auxílio imprescindível de decisão, 
que agora estará à disposição de seus clientes da Casa Cor. 
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Modem 32BIS no Brasil 


Atenta a essa necessidade, a Safe Informática lança no 
Brasil a linha de modens DM pabrão V32Bis, fabricado pela 
Aceex, de Taiwan. Os modelos da linha DM têm velocidade 
de 14.400 bps, que os tona os mais rápidos do mercado 
nacional, além de permitir maior otimização na comunicação 
de dados e redução de custo. Um dado importante para os 
usuários: a linha DM já vem no padrão Telebrás. 

A linha DM é composta de dois modelos: o DM-1414, um 
modem de mesa, e o DM-1414 BR para grandes usuários, 
instalados em racks. Ambos os modelos funcionam como 
Fax, videotexto e correio eletrônico e permitem a 
comunicação de dados sem intervalos que encarecem o 
custo de transmissão. Os modens da Safe informática são 
padrão CCITT e dispõe de um chip central que gerencia a 
recepção e o envio de dados. 

Os modens DM-1414 e DM-1414 BR incorporam o 
conceito VLSI e operam com velocidade de 1.200 a 14.400 
bps. eles trabalham a dois fios duplex, têm auto dial e 
resposta automática. E 

A linha DM da Safe Informática integra todas as funções 
de comunicação de dados, o que possibilita tanto ao pequeno 
quanto ao grande usuário expandir a sua capacidade sem 
aumento significativo de custo. 











CRAZ Ysorr INFORMÁTICA( TEL: (011) 456-8373 
Av. Tiradentes,433 sala 5 - Diadema - SP - CEP: 09911-190 


MENORES PREÇOS Pedidos: por carta ou fone de Seg. a Sex das 9:00 as 19:00 aos Sáb. das 9:00 as 15:00 
Disco c/ gravação: relacione o Nome e a Quantidade de discos de cada programa. 

Disco Sá DD - R$ 1,00] Pagamento: envie um cheque nomial a RICARDO FREIRE BEZERRA no valor total de 

Disco Sá HD - R$ 1,50] seu pedido, ou faça um depósito na seguinte conta: BRADESCO Ag. 0272-0 CC. 0107494-6 

Correio - R$ 2,50] Envie xerox do depósito junto ao pedido, não esqueçer de adicionar a taxa de correio. 

(para cada 20 Diskettes) A Solicite catálogo grátis com a completa relação de jogos e aplicativos. 
























































puma quado PGC LEMBRA eo tmp ARS ma conf meg 


PPP 

















SEMA ARO OS qu Sedes 28 


Uh are me proper a 


1É Cr o titaaga dm O teu Meta dido 


“dama dai e 


cmabrhio Lust mata o Agito ca cannot 4 Qmriicção 









NOVIDADES AÇÃO - AVENTURA ADVENTURE - RPG SIMULADORES CASSINOS 
ALCNE IN THE DARK II 05 HD 007 LICENE KUL 02 DD ALONE IN THE DARK 05 HD 688 ATTACK SUB 01 DD BATTLE CHESS WINDOWS 01 HD 
ALTERED BEST 01 HD ASTERIX 02 DD AMAZON 08 HD A-10 TANK H 08 DD BATLLE CHESS 4000 08 HD 
B-WING (MISSÕES) 01 HD BABY JO IN GOING HOME 01 HD BATMAN THE RETURN 07 HD ACES OF PACIFIC 03 HD ANT HD 
 BLADESÇE DESTA , BACK TO FUTURE II 01 HD CARMEN S.DIECO DELUXE 05 HD AIR WARRIOR 03 HD TER 1 HD 
LER 7 : BARBARIAN 01 DD DARK LAND 11 HD B-17 FLYING FORINESS 05 HD CHRSS MASTE BOWS 01 HD 
SHANCHE QSERKT mm Si BATMAN THE MOVIE 01 HD DARK SEED 05 HD BATTLE BRITAIN 1942 01 HD JIMY WHITE SNOOKER 01 DD 
CDOUH TZ BRUCE LEE LIVES 03 DD DME 04 HD BATTLE HAWKS 1942 02 DD MONOPOLY FOR WINDOWS 02 HD 
DRAGON'S LAIB 3-4 CABAL 02 DD ECO'S QUEST 04 HD BLUE MAX 05 DD POKER FOR WINDOWS 01 HD 
DUE H 04 HD CAPTAIN COMIC II 01 HD ELVIRA II 03 HD F-14 TOM CAT 01 HD SARGON 5 01 HD 
EIGHT BALL DELUXE 02 HD COLORADO 02 DD EYE OF BEHOLDEER II 03 HD F-15 SIRIKE EMGE NI 06 HD SILVER BALL 01 HD 
EPIC 06 HD COMMANDER KEEN VI 01 HD FIVEL IN AMERICAN TAIL 05 HD F-16 COMBAT PILOT 02 DD SIRIP KKER III 01 HD 
FLASH BACK 03 HD CONTRA 01 DD GALLIONS OF GLORY 01 HD FALCON 3.0 05 HD TRISTAN 01 HD 
GOELINS 11 02 HD CRISTAL CAVES 02 DD GOBLINS 02 HD FLIGHT SIMULATOR 4.0 02 DD VEGAS GAMBLER 01 DD 
HOME ALONE II 02 HD CYBERGENIC RANGER 04 DD HULK 02 HD GREAT NAVAL BATTLE 03 HD 
INDY CAR RACING 03 HD DICK TRACY D6 DD IND. JONES FATE ATLANTIS 06 HD GUNSHIP 2000 03 HD, RACIOCINIO 
JORDAN IN FLIGHT 02 HD DOUBLE DRAGON III 01 HD INPECTOR GADGET 04 HD JE FIHIER 02 HD. 
JURASSIC PARK 04 HD DRAGON'S LAIR III 12 DD KEEN'S OP QUEST VI 09 HD LHX ATTACK CHOPPER 02 DD BLOCK OUT 01 DD 
KEEN'S LABIRINT 01 HD EL CAPTAIN TRUENO 01 DD LEGEND OF KYRANDIA 04 HD M-1 TANK PLATOON 01 HD BRIX 01 HD 
LEGEND OP KYRANDIA II 08 HD GHOST 'N' GOBLINS 01 DD LOOM 06 DD MIG-29 FULCRUM 02 DD CD-MAN 02 DD 
LEISURE SUIT LARRY V 08 HD GHOSTBUSTERS II 01 HD MIGHT & MAGIC III 03 HD RED BARON 02 HD CREEPERE 01 HD 
LEMMINS'S THE TRIBES 02 HD GODS 01 DD REX NEBULAR 10 HD SHERMAN M-4 01 HD ENCES.. IRIS IO 03 DD 
LINKS 386 PRO (SVCA) 04 HD GOLDEN AXE 02 DD ROBIN HOOD 07 HD SKI CHASE 01 HD INCREDIBLE MACHINE 01 HD 
GREMLINS II 01 DD STAR TREK V 05 DD STUNT ISLAND 06 HD J-BIRD 01 DD 
HOME ALONE 02 DD ULTIMA UNDERWORLD 04 HD TORNADO 03 HD JIG SAW PUZZLE 02 DD 
IND. JONES LAST CRUSADE 02 DD VINGANCE OF ESCALIBUR 02 HD WOLF PACK 01 HD LEMMING' S 03 DD 
JILL CF THE JUNGLE TI 01 HD MAXINE HEADBOOM 01 DD 
KARATEKA 01 DD ESPACIAIS CORRIDAS MICKEY MOUSE 03 DD 
MARIO BROSS 01 DD PACK GAMES WIND. 02 HD 
MEGA MAN 01 DD ALPHA WAVES II 02 DD 1000 MIGLIAS 02 HD PUSH OVER 01 HD 
MOONWALKER 01 HD BLOOD MONEY 02 DD 4X4 OFF ROAD 01 DD SOKOBAN 01 DD 
PIRATES GOLD 06 HD 0 N WOLF 01 HD ECHELON 02 DD CAR & DRIVER 03 HD SQUARES 03 DD 
PRINCE OF PERSIA 11 05 HD PANZA KICK BOXER 01 HD ELITE 01 DD FERRARI FORMULA 1 02 DD SUPER TETRIS 01 HD 
RETURN OP PLATOON 05 HD FI GALACTIX 02 HD GRAND PRIX UNLIM. 01 HD TETRIS 01 DD 
ROBOCOP 3D 04 HD PREDADOR II 03 DD KILOBLASTER 01 HD HARD DRIVIN 01 DD WELLTRIS 02 DD 
SAM & MAX 07 HD PRINCE OF PERSIA 02 DD MACH III 01 DD INDYANAPOLIS 500 02 DD X-MAE LEMMING' S 01 DD 
SANGO FIGHTER 03 HD RAMBO III 01 DD MAJOR STRIKE 02 HD MCROSS SUZUKI 250CC 01 HD X-ROCK 01 HD 
SHADOW OF THE COMET os HD RENEGADE 02 DD MANTIS EXP. FIGHT 09 HD MOON SHINE RACER 03 DD 
SHADOW PRESIDENT 03 HD ROAD RUNNER 01 DD MATCH WARRIOR 04 DD OUT RUN 02 DD PORNO & EROTICO 
SHERLOCK HOLMES 10 HD ROBOCOP D4 DD PLAN 9 OTHER SPACE 03 HD PIT SICP 2 01 DD 
SIM CTTY 2000 02 HD ROGGER RABBIT 02 DD STAR CONTROL 02 DD POLE POSITION II 02 DD 
SPACE HULK 04 HD SHINOBI 02 DD ADULT GAMES 01 DD 
STAR DEFENSE 01 DD POWER DRIFT 03 DD 
SPEED RACER 03 HD SIMPSONS II 02 HD BUNNT'S BEACH BALL 01 HD 
ART: sa HO no pe STAR LEGIONS 02 HD SITO PONS 500€C€ 01 DD COBRA MISSION 05 HD 
JUDGM, SPACE STELLAR 7 01 HD STUNT 01 HD 
STREET FIMER HO 06 HD BUPER CONTRA 03 DD ETRIKE COM EAST US WEST 01 DD 
MANDER 08 HD STUNT DRIVER 01 HD NIKKI 01 HD 
TASK FORCE 1942 66 HD TARTARUGA NINJA III 01 HD TIE FIGHIER 02 HD SUPER HANG O oL DD PENTHOUSE JIG SAW 01 DD 
TERMINATOR RAMPAG 06 HD TERMINATOR 11 01 HD IWILIGHT 2000 03 HD RAM “SUZUKT > POOR MANDY 01 HD 
THE LOST VIKINGS 01 HD THE FIRST SAMURAI 02 HD VOLFIED 01 HD IRIVE PORNO IV 01 DD 
TORNADO 03 HD THEQER II 01 HD WING COMMANDER 08 HD ROME 02 HD 
ULT. UNDERNORLD II OS HD TOM & JERRY 01 DD X-WINC 05 HD q SEX 05 DD 
“00L 01 HD WOLFEINSTAIN 3D 01 HD XENON II 03 DD WORLD CIRCUIT 03 HD SUPER PORNO 01 HD 
APLIÇATIV PARA PG-XT-AT 















FOR WINDOWS 









































































































































3D IMAGE ED. GRÁFICO 3D 01 DD ED. MUSICAL 1000 ICONES ICONES P/ WINDOWS 01 DD 
80 FORMATA COM 800KB 01 DD | MODPLAY DEMO MUSICA 01 HD AFTER DARK II PROTEÇÃO DE TELA 01 HD 
Asi TOOLS KIT ED. JOGOS Pd e E BB VIEW CARREGAR DE TELAS 01 DD 
= ——DERO CRÁP Musse. DIRETORY INFORMATION FERRAM. WINDOWS 01 DD 
AQUARELA ED. GRÁFICO 01 DD ; ENCORE (S.BLASTER) EDITOR MUSICAL 02 HD 
ARJ 2.21 COMPACTADOR 01 DD À NST - NOISE TRACER ED. MUSICAL 10 DD FM SONG PLAYER (SB) ED. MUSICAL 01 DD 
ARTIST ED. GRÁFICO 01 DD ORACLE TAROT & I CHING 01 DD FISH 3 PROTEÇÃO DE TELA 01 DD 
ASTRO ASTROLOGIA 03 DD À ORGÃO ELÉTRONICO TECLADO MUSICAL 01 DD FONTS FOR WINDOWS II NOVOS TIPOS DE LETRAS 01 HD 
ATLAS PC ENCICLOPEDIA 01 DD PASCAL TOOLS UTIL. PARA PASCAL 03 DD ICON-HEAR-IT ICONES ANIM/SOM 01 HD 
BAND IN THE BOX (68) ED. MÚSICAL oi HD PC GLOBE 4.0 ENCICL. GEOGRAFICA 01 HD KWIK DRAW EDITOR CAD 02 HD 
BANNER MANIA ED. DE FAIXAS 01 DD PC ORGANIZER GERADOR DE MENUS 01 DD TDI COLLECTION MUSICAS .MID 01 HD 
BAR CODE ED. CODIGO DE BARRA 01 DD À PC WRITE ED. TEXTO 01 DD -PROGRAMA-MUSICAL DID 
CHECK IT : CHECK-UP DE MICRO 01 DD PK ZIP 2.04 COMPACTADOR 01 DD MORE WAVES II EFEITOS SONOROS 06 DD 
COLLAGE ED. DE SLIDE 01 DD PRINT MASTER ED. CARTAZES 01 DD MOVE FOR WINDOWS COPIADOR 01 DD 
COMPUSHOW 2 DEMO DE TELA 01 DD PRO DOS CONV. *.BAT P/ *.EXE 01 DD NJ'S FILES FINDER COMPACTADOR 01 DD 
CRYSTAL GRÁFICOS 3D 01 DD PROF. INGLÊS ENSINA INGLÊS 02 DD PK ZIP FOR WINDOWS COMPACTADOR 01 DD 
DAPV. 147 DESTRAV. DE JOGOS 01 DD PUBLISH IT DESKTOP PUBLISHER 08 DD PICTURES ABC PROGRAMA INFANTIL 01 DD 
COME O DUM CRAFT — ai HD SKY GLOBE MAPA ESTRELAR 01 DD SOUND FOR WINDOWS BONS P/ EPEAKER 01 DD 
DESIGN CAD 2-D ED. CAD 06 DD À THE MUSIC CONSTRUT. ED. MUSICAL C/ PART. 01 DD TIME FRAM RELOGIO AUTOMATICO 01 DD 
DIGI PAINT 2.0 ED. GRÁFICO 01 HD | TURBO FLOW ED. DE FLUXOGRAMA 01 DD THE MOON TOOC MAPA LUNAR 01 DD 
DISK DUPE 4.01 COPIADOR 01 DD VISUAL COMPOS. (AD) ED. MUSICAL 01 HD WGOLDIE FOR WINDOWS ANIMAÇÃO GRÁFICA 01 DD 
DISK MANAGER LABEL ED. ETIQUETAS 01 DD | VISUAL PLAYER 2.0 DEMO MUSICAL 01 HD WIN WAVE (S.BLASTER) MUSICAS P/ WINDOWS 03 HD 
ELET. WORKBENCH ED. CIRGITO ELET. 01 HD | VGA COPY 5.0 COPIADOR 01 HD WINDOWS UTILITIES FERRAM. P/ WINDOWS 
ENVELOPE LASER ED. ENVELOPE 01 DD 
FANCY LABELS ED. ETIQUETAS 01 DD ams 
FANTAVISTON ED. GRÁFICO 01 DD TEMOS OS MENORES PREÇOS E PRAZOS 
FDREAD & FDPORMAT FORMATA C/ + CAPAC. 01 DD TENÇÃO ed A 
GRAPH IN THE BOX ED. GRÁFICO 01 DD Ç ( RA ) 
HAUNTED HOUSE (SB) EDITOR DE SONS 01 HD PARA GRAVA OES 24 HO S 
JM PLAYER (SB) ED. MUSICAL 01 DD 
KICK DRAW CAD : 
KICK DRAW CAD ig a A e PEDIDOS ACIMA DE 15 DISKETTES + 1 HD DE BRINDE 
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ARTIGO 








Programas Pouco Amigáveis 


Conheça dos problemas de incompatibilidade entre programas para 


os micros Amiga 


Flávio Massao Matsumoto 


Para acompanhar a evolução tecnológica os 
microcomputadores Amiga vêm sofrendo constantes 
modificações, com o lançamento de novas máquinas como 
a atual geração de conjunto de chips AGA de 32 bits (CD32, 
A1200, A4000/30 e A4000/40). Os projetistas da Commo- 
dore fizeram umgrande esforço para manter a compatibilidade 
com os modelos anteriores, porém muitos programas 
(principalmente jogos e demos) falham nas novas máquinas. 
Isto ocorre porque os programadores não seguiram à risca 
as recomendações da Commodore, executando 
procedimentos considerados ilegais ao sistema. É possível 
que muitos usuários do A5OO (provavelmente o modelo mais 
difundido no país) sintam-se encorajados a trocá-lo por um 
A1200 pois seu preço tem abaixado bastante, mas não o 
fazem exatamente por temerem perder o acervo de softwares 
que possuem hoje. O objetivo deste artigo é mostrar que 
certos problemas de incompatibilidade podem ser superados, 
desde que se utilizem as ferramentas adequadas. 

À própria ROM Kickstart 3.0 contém um recurso para 
emular as máquinas antigas, e que se chama Amiga Early 
Startup Control. Para acessá-lo basta manter pressionados 
os dois botões do mouse durante a inicialização do Amiga 
(após ligar a fonte de alimentação ou após um reset do 
sistema), até que um menu surja na tela. 

As seguintes opções estão disponíveis: 


“Boot options: permite selecionar a partir de qual dispositivo 
fazer o boot (normalmente o drive DFO:), e ainda desativar 
drives, partições de disco rígido e o slot PCMCIA para salvar 
espaço da RAM. Também pemite desativar a memória 
cache interna que faz parte das CPUs MC68020 ou mais 
avançadas, e que servem para guardar os conteúdos da 
RAM acessados recentemente para diminuir o tempo de 
acesso. Apesar de aumentar o desempenho do processador 


VICRO SISTEMAS 


este procedimento pode levar à destruição de programas 
auto-modificáveis (como os encontrados em certos tipos de 
proteção contra a cópia) devido à discrepância entre a RAM 
e o cache. 


Display options: permite escolher a frequência de operação 
do vídeo, entre NTSC (60 Hz) e PAL (50 Hz), este último 
adotado na Europa e que portanto deve ser usado nos 
programas oriundos deste continente. Tem exatamente a 
mesma função queo programa PAL-Booter para as máquinas 
antigas. Além disso, pode-se escolher o conjunto de chips 
que deve ser emulado para obter uma melhor compatibilidade 
entre “Original”, “Enhanced” (ECS que equipam os AdOO+, 
A600 e A3000) e “Best Available” (AGA). 


“Expansion Board Diagnostic: mostra informações sobre as 
placas de expansão presentes nos slots. 


“Boot: sai do menu e executa o boot. Se não quiser que o 
Startup-Sequence seja executado basta clicar o botão “Boot 
With No Startup-Sequence”. 


A opção de maior compatibilidade seria de “CPU Cache 
off” e “Original chip”, sendo que segundo a Commodore 
mais de 60% dos programas existentes funcionam 
simplesmente com o Early Startup Control. Ainda assim 
muitos programas são perdidos, e para contornar isto 
surgiram vários utilitários de domínio público que serão 
apresentados a seguir. 


KINAGA 2.0 


Este é um programa de autoria de Jolyon Ralph e pode 
ser distribuído livremente. A documentação é simples porém 
contém todas as informações essenciais. Normalmente 
para mudar o tipo de chip emulado (original, ECS ou AGA) é 





necessário dar o boot, mas com este pequeno utilitário 
pode-se executar um programa problemático no modo não- 
AGA e ao final deste retomar ao modo AGA. Sua ação 
consiste em desabilitar os registros do AGA, restringir as 
resoluções dos sprites para o modo ECS e desabilitar todos 
os caches. Comisto grande parte da incompatibilidade pode 
ser superada. 
Para utilizá-lo basta digitar a partir do CLI: 


KILLAGA “nome do programa” 


ou ainda a partir de um script. Como necessita do CLI para 
ser executado, este programa não pode ser usado para 
discos fora do padrão AmigaDOS (NONDOS Disk). Para os 
que não gostam de operar via CL! o programador Fabian 
Nunes elaborou o WBKIIIAGA que lhe providencia uma 
interface iconográfica via Workbench. 


FAKEMEM 


Não se conhece o autor e a sua documentação é 
escassa. O A1200 padrão vem com 2MB de Chip RAM e 
nenhuma Fast RAM. Basicamente o que este programa faz 
é restringir o uso de Chip RAM em no máximo 512KB e com 
o restante emular a Fast RAM. 


DEGRADER 1.30 


Este programa é o que apresenta maior número de 
opções para compatibilizar o hardware para os programas 






os melhores programas Shareware 


e Domínio público do mercado. 
CONFIRA SÓ: 


antigos (seu nome sugere uma degradação de um computador 
de melhor desempenho). Seu autor é o Chris Hames 
(programador do excelente PC-Task) e o Degrader é de livre 
distribuição e uso. 

O manual é excelente e contém informações técnicas 
detalhadas sobre os problemas da compatibilidade. Pode 
ser executado a partir do CL! ou do Workbench, quando surge 
então um painel com as várias opções disponíveis. 


-50Hz/60Hz e 50HzSystem/60HzSystem: força o 
computadortrabalhar nafrequência de varredura PAL européia 
ou NTSC americana. O Early Startup Control da ROM 3.0 
possui função similar. 


-AudFIlterOff/ AudFliterOn: desliga/liga o filtro de áudio do 
Amiga, que poder ser acompanhada pela intensidade do 
LED do Power. 


-NoFastMem: no passado o custo da RAM era bastante 
elevado, assim raros eram os Amigas que possulamexpansão 
de memória. Por causa disto alguns programas muito 
antigos só funcionam na presença da Chip RAM. Esta opção 
simplesmente desativa a Fast RAM. 


-HalfMegChip: restringe a quantidade de Chip RAM em 
512KB. 


“OneMegChip: força a quantidade de Chip RAM máxima em 
1MB. Note que somente os Amigas com ECS (A5OO+, AGOO 
e A3000) ou com AGA podem suportar até 2MB de Chip RAM. 








PC SHARE - Utilitários para MS-DOS 4 disco de 
1.2Mb (Compactado) + ou - 2.5Mb (Descompactado) 
Números disponíveis: 01,02,03,04,05 e 06 ................ 10 URVs 
PC SHARE FOR WINDOWS - Utilitários para Windows um disco 
de 1.2Mb (Compactado) + ou - 2.5Mb (Descompactado) 

Números disponíveis: 01,02,03,04 e 05 ............... 10 URVs 


PC SHARE GAMES - Jogos selecionados para Ega/Vga/Cga 2 
discos de 1.2Mb (Compactado) + ou - 5.5Mb (Descompactado) 
Números disponíveis: 01,02,03,04,05 e 06 ................ 13 URVs 
SEXY SOFTWARE - Animações e fotos digitalizadoa com as mais 
belas gatas do cinema pornô VGA 2 discos de 1.2Mb (Compactado) 
+ ou - 5.5Mb (Descomp.) 

Números disponíveis: 01,02,03,04,05 e 06 ................ 13 URVs 


Promoção: Nas compras acima de 20 URVs desconto de 15% no valor do cheque. 


Relacione os pacotes desejados junte um cheque nominal a ( André Luis Castanheira dos Santos | com o valor 





do seu pedido. E envie para PC SHARE: Caixa Postal 30037 - Cascadura - Rio de Janeiro - RJ - Cep: 21352 - 970 
Seu pedido será enviado no praso maximo de 5 dias. Tel. Residencial (021) 350 - 40-53 





-“NoMemaAt: exclui blocos da lista de memórias do sistema, 
indicado quando há algum conflito de endereçamento. 


-AddMem: adiciona blocos de memória à lista, muito útil 
para as placas de expansão que não são auto-configuráveis. 


-“NoCache: desliga cache interno da CPU 68020 ou mais 
avançadas, que podem corromper programas auto- 
modificáveis. A ROM 3.0 possui função semelhante. 


Privilege: muda a instrução “move SR,<ea>” para “move 
CCR,<ea>”, uma vez que a primeira se tomou privilegiada a 
partir da CPU 68010. 


-TimeWaste: torna a operação do computador mais lenta, 
porém não funciona com todos os programas. 


-“BlockDevice: bloqueia a adição de alguns dispositivos 
(drives extemos, discos rígidos, cartões PCMCIA, etc.) ao 
sistema. 


«CachesQn: o sistema operacional ativa os caches da CPU 
68030 ou 68040 somente quando é executado o comando 
SetPatch. Esta opção ativa os caches quando não é possível 
executar o SetPatch. 


-Enllghten: os recursos extras dos chips AGA são ativados 
somente após o SetPatch. O enlighten permite que programas 
em discos NONDOS possam utilizar todo o potencial deste 
chip set desde que sejam corretamente escritos para tal. 


-“PromoteAll: funciona com ROM a partir de 2.0, permite que 
um programa possa utilizar um monitor de vídeo específico, 
desde que se possua um device driver apropriado. 


“NoView: somente para as máquinas AGA, cria uma tela em 
branco com emulação do sistema em ECsS. 


Após feitas as escolhas apropriadas pode-se sair do 
programa, executar o Bootblock ou ainda deixâ-lo residente 
durante um Reset ou durante vários Resets. O Degrader 
permite que muitos programas funcionem corretamente, 
desde que se encontrem as opções apropriadas. À 
combinação correta dever ser achada por tentativa ou erro, 
mas ainda assim há programas que insistem em dar 
problemas. 


KICKSTART 1.3 PLUS 


Durante muitos anos a versão da ROM corrente foi 1.3, 
e muitos programas surgiram neste período. Com o 
lançamento do A3000 surgiu a versão 2.0 do sistema 
operacional, que apresenta sem dúvida melhoramentos 
substanciais em relação ao seu antecessor. Porém isto 
trouxe também uma série de incompatibilidades e muitos 
programas foram perdidos. Finalmente com a chegada das 
máquinas AGA foi trazido o Kickstart 3.0, com o mesmo 
problema. Uma solução possível é por meio de um hardware 
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especial (ROM Sharer ou Switcher) que permite selecionar 
entre dois chips com ROM 1.3 e 2.0 que podem ser 
selecionados antes do boot. 

Outra solução é o Kickstart 1.3 Plus que é um programa 
que possui o conteúdo de todos os 256KB da ROM 1.3 num 
arquivo. Quando é dado o boot com este disco o arquivo é 
passado para a RAM e o endereçamento da ROM é 
redirecionado para esta região da memória. À partir disso o 
computador funciona com o sistema operacional 1.3 e não 
sai dele mesmo após um reset, assim não é necessário 
carregar toda vez o KS1.3 Plus quando for dar o boot. À 
desvantagem óbvia deste procedimento é o consumo de 
RAM para emular a ROM, o que pode ser problemático para 
máquinas não expandidas. Além disso pode ter seu conteúdo 
adulterado por outros programas. 

Aqui no Brasil existem versões deste programa 
comercializadas com o nome Relokick 1.3, porém na 
documentação presente no disco é citado como Kickstart 
1.3 Plus. Sua autoria é desconhecida e a documentação 
está em idioma estrangeiro (polonês, talvez?). 


CONCLUSÃO 


Não foi citado neste artigos alguns “Patches” que 
corrigem certos jogos que não funcionam nos micros AGA, 
em especial o A1200. Isto decorre do fato do autor não ter 
testado nenhum deles, muitas vezes por não possuir o 
referido jogo. Fica um alerta aqui que tais Patches funcionam 
somente em programas originais, não adianta tentar aplicar 
naquele disco “extra-oficial”. 

Quando é feita uma atualização para uma máquina mais 
nova, necessariamente tem que se fazer também uma 
atualização no acervo de programas, principalmente quando 
se quer utilizar todos os novos recursos disponíveis na 
arquitetura AGA. Mesmo assim esta atualização não é 
possível num tempo curto, devido ao grande investimento de 
tempo e de dinheiro já feito. Assimseria desejável que 
todos os antigos programas fossem ao menos compatíveis 
com as novas máquinas, mas não é o que ocorre sempre. 
Existem programadores que possuem suas próprias razões 
para fazer acessos ilegais à ROM e ao hardware, violando 
normas fixadas pela Commodore e disto resultam sérios 
problemas de incompatibilidade. Neste caso quem sofre é 
o usuário final, que tem de optar entre permanecer com um 
sistema obsoleto ou adquirir uma máquina mais potente, 
correndo o risco de ter que reinvestir em novas versões dos 
programas, se estiverem disponíveis. 

Neste artigo mostrou-se algumas soluções que podem 
ser adotadas para se contornar este problema, apesar de 
não serem eficazes em 100% dos casos. Mas baseado na 
própria experiência do autor pode-se afirmar que o número 
de programas irremediavelmente perdido é relativamente 
pequeno, e estes podem ser substituídos por outros mais 
novos que em geral são de melhor qualidade. 


sm FLÁVIO MASSAO MATSUMOTO faz pós-graduação em 
Química Inorgânica no Instituto de Química da USP e é 


usuário de um TK90X e um Amiga 1200. Também opera com 
micros AT386 acoplados a instrumentos científicos. 
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MODEM INTERNO DE VIDEOTEXTO PARA PC XT/AT 


Placa de modem interna para ser conectada em qualquer dos slots do PCXT/AT/286/ 
386/486. Fácil instalação e baixo consumo. Acompanha manual de instalação e 
operação, e disquete com programa de acesso do videotexto homologado pela Telesp. 


MODEM EXTERNO (DE MESA) DE VIDEOTEXTO PARA PC XT/AT 


Portâtil, de mesa, usa a porta serial do micro. Ideal para Laptops, possui leds 
indicadores de portadora, recepção, dd Compatível com PC 
XT/AT e portâteis. 


MODEM DE VIDEOTEXTO PARA MSX 


Transmite e recebe em 1200/75. Discagem automática, rediscagem automática em 
caso de número ocupado. Contém software residente (Firmware) para operação no 
videotexto. Produto homologado pela Telesp. 


ESTABILIZADOR / FILTRO DE LINHA / BASE DE MONITOR 


Estabilizador de voltagem com capacidade de 800 VA / 1 KVA (volt amperes ou Watts), 
permite que a tensão de entrada caia até 95 volts, mantendo a saída estabilizada em 
110 volts. Sistemas de compensação de voltagem via circuito magnético, o que 
proporciona compensação de voltagem com ausência de picos de comutação na 
saida, fato comum aos estabilizadores convencionais. 








DESPACHAMOS PARA TODO O BRASIL 


DATAGAME ELETRÔNICA LTDA 
FONES : (011) 570-7471 E 574-8990 
ESTAMOS CADASTRANDO REVENDAS 
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Projeto Windows Shell 





Ricardo Flores 
=== O projeto WinShell 
[= sem Título *)»| permitirárodaroutros 
aplicativos feitos para 








Windows ou para 
DOS. Como pode ser 
observado, a Barra 
de Menu possui um 
menu àÁrquivo, que 


Executar... Ctrl+E 
Sair Ctri+R 










acionado exibe dois itens de menu. 


Se o Pentelho acionar Executar, será exibida a InputBox 
abaixo. 


TR 
Digite na caixa abaixo: | 


A função Input- 










dro de Diálogo 
como você está 
vendo, ou seja, 
inclui os botões OK 
e Cancel, permite 
a exibição de um 
aviso (Digite na 
caixa abaixo:), de 
uma legenda (Ro- 
dar...), bem como 
disponibiliza uma 
caixa de texto com 
um texto (Aqui 
Pentelho), onde o 
usuário digitará dados. O que o usuário digitar na caixa de 
texto será retornado pela InputBox$. O Quadro de Diálogo 
da InputBox$ é modal, isto é, você não poderá acessar 
outras janelas quando ele estiver ativo na tela. 
A sintaxe da função InputBox$ é a seguinte: 

XString$ =InputBox$(aviso$ [,legenda$ [texto$ [,x% 
[,y%]]]) e pode ser criada com o código: 
InputBox$(“Digite na caixa abaixo:”, “Rodar...”, “Aqui 
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Aqui Pentelho 


BoxS$ cria um Qua-' 


Visual Basic - Parte 6 


Pentelho” ,100 ,100) 

x% e y% aqui representados por 100 são valores em twips 
que determinam a posição do Quadro de Diálogo InputBox$ 
a partir do canto superior esquerdo da tela. Omitindo-se x% 
e y% o Quadro de Diálogo será centralizado na tela. 


Inlclando um Novo Projeto 

Menu File N New Project * Dimensione o Formi com 4.155 
x 1.530 twips 

Encontre e mude a propriedade Name do objeto Formi para 
frmWinShell 

Propriedade Caption do objeto frmWinShell: Sem Título 
Clique o botão “Gravar Projeto Corrente” e digite: 
WINSHELL (Para nome do formulário) N OK 

WINSHELL (Para nome do projeto) NX OK 


Criando a Barra de Menu com a Janela de Desenho de Menu 
Ative o formulário * Menu Windows * Menu Design 

Na caixa Caption, digite: &Arquivo * Na caixa Name, digite: 
mnuArquivo * Botão Next 

Na caixa Caption, digite: &Pxecutar N Na caixa Name, digite: 
itmExecutar 

Na caixa de lista Shortcut: [= Teclas de Atalho), selecione: 
Ctri+E | 

Acione o botão para este item de menu ficar endentado 
Na caixa Caption, digite: Sai&r N Na caixa Name, digite: 
imSair 

Na caixa de lista Shortcut: [= Teclas de Atalho], selecione: 
Ctri+R N OK 

Rode o aplicativo para testálo. 


Escrevendo o Código Basic para ltmSalr do frmnWiInShell 
Ative o menu Arquivo * Ative o item Sair N Complete o 


procedimento: 


Sub itmSair Click () 
End 
End Sub 





Escrevendo o Código Basle para ltmExecutar do frmWinShell 
Ative o menu Arquivo * Ative o item Executar 

Se ocorrer um erro, a execução do programa vai para [= 
GoTo] o rótulo Aviso. 

Note que a função InputBox$ retomará para a função Shell 
o que for digitado na caixa de texto da InputBox$. 


Tipo 
Janela: 

1 
Normal com foco 

2 
Minimizada com foco 

3 
Maximizada com foco 

4 
Normal sem foco 

7 


Minimizada sem foco 

A função Shell tentará executar o aplicativo cujo nome 
recebeu da InputBox$. A sintaxe da função Shell é Valor = 
Shell (comando$ [, tipo$]), onde comando $ é o nome de um 
aplicativo, que tenha a extensão EXE, BAT, COM ou PIF e 
tipo$ define o tipo da janela em que o aplicativo rodará, 
conforme tabela à esquerda. 

Se a função Shell executar normalmente tal aplicativo, 
retomará para Valor um número que identífica o programa 
para o Windows, ou seja o ID de tarefa do programa. 

Transformamos o ID em string [= Str] para mostrálo 
como legenda de frmWinShell. 


Isto posto, complete o procedimento: 
Sub itmExecutar Click () 
Dim Execute As Integer 
On Error GoTo Aviso 
Execute = Shell(InputBox$(“Digite na caixa abaixo:”, 
“Rodar...”, “Aqui Pentelho”, 100, 100), 1) 
frmWinShell.Caption = “ID número: “ + Str(Execute) 


Exit Sub 
Aviso: 
pontos) 
MsgBox “Preste atenção pô!”, 64, “Erro” 
Exit Sub 
End Sub 


“Todo label tem que terminar com : (dois 


Rode o Projeto N Faça vários testes digitando na caixa de 
texto da InputBox$, por exemplo, calc ou control ou notepad 
ou ws * Termine a Execução do Projeto N Salve-o 


DICA: Se o caminho do aplicativo que você deseja rodar 
não estiver informado na variável Path do arquivo 
AUTOEXEC.BAT, você terá que digitar na caixa de texto da 
InputBox$ o caminho completo, porexemplo, c:Votus Votus. 


é sipidd Gia: 


Ricardo Flores é Auditor e Diretor da Audit System, empresa 
especializada em Treinamento e Comunicação Visual. 
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FAÇA JÁ O SEU PEDIDO ! 


031-496-60840 


AV. XANGREI-LA, 75 - C125 - BRAUNAS 


BELO HORIZONTE - MG 
CEP: 31.365-640 


PREÇO POR DISCO (INCLUSO) 


360 DD - 1,20 URV'S 
1.20 HD - 2,00 URV'S 
1.44 HD - 2,30 URV'S 


LEGENDS OF KYRANDIA Il 


LANÇAMENTOS 


CORRIDOR 7 - ALIEN INVASION 02MD 


BATTLE ISLE 

RAPTOR 

THE HORDE 

INDYCAR CRASH COURSE 
REUNION 

PACIFK STRIKE + SPEECH 
1942 - THE PACIFIC AIR WAR 
DETROIT 

RULES OF ENGAGEMENT Il 
AL-QADIM - GENIE'S CURSE 
CANNON FOLDER 

ROBSON REQUIEM 
INHERIT THE EARTH 
LEGENDS OF MYRA 

CHAOS 

U.F.O. ENEMY UNKNOWN 


UNNATURAL SELECTION 
SYNDICATE DATA DISK 
PINBALL FANTASIES 

THE RED CRYSTAL 
CIVILIZATION FOR WINDOWS 
PRIVATEER + SPEECH PACK 
BLOODNET 

THE PATRICIAN 

NHL HOCKEY 

STARLORD 

V FOR VICTORY PACK 
CARRIERS AT WAR 4 
TERMINATOR RAMPAGE 
DRAGONSPHERE 

BRAM STOCKER'S DRACULA 
SIMCITY 2000 - SVGA 

RAC RALLY Il - NETWORK 
SSN-21 SEA WOLF 


OSHD 
03HD 
06HD 
03HD 
O9HD 
13HM0 
06HD 
02HMD 
03HMD 
08MD 
02H0D 
O4MD 
06HMD 
06MD 
03HMD 


CHESSMASTER 4000 WINDOWS 
MASTER OF ORION 

INNOCENT UNTIL CAUGHT 
STAR TREK JUDGMENT RITES 
THE BEVERLY HILLBILLIES 
WASHINGTON SCENERY FS 8.0 
CYBERACE 

KRONOLOG THE NAZI PARADOX 
POLICE QUEST IV 

TRUMP CASTLE Ill 

DUNGEON HACK 

F-14 FLEET DEFENDER 
WINTER OLIMPICS 

QUEST FOR GLORY IV 

HIRED GUNS 

TEX TACTICAL FIGHTER EXP 
FIA 18 HORNET NAVAL STRIKE 
COMPANIONS OF XANTH 

ISLE OF THE DEAD 

JONNY QUEST 

INCA & 

ALONE IN THE DARK li 
JURASSIC PARK 

RAVENLOFT 

LOST IN TIME 

LITIL DIVIL 

GABRIEL KNIGHT 

SAM & MAX 

BEAUTY AND THE BEAST 
BENEATH A STEEL SKY 
GREAT NAVAL BATTLES || 
ULTIMA Vitl - PAGAN + SPEECH 
OSCAR 

LANDS OF LORE 

COMANCHE MISSION DISK 2 


SEAL TEAM 
E MUITO MAIS PARA VOCÊ! 
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(011)871-2859 


CENTRAL INFORMATICA LTDA. 
RUA BARÃO DE ITAPETININGA, 88 CONJ.707 - CEP: 


TEL.:(011)256-2544 / FAX:(011)259-8430 / BBS 
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Programando em modo SuperVGA 


Conheça os truques e macetes do modo de vídeo mais importante 


do padrão VGA. 


Renato Degiovani 


À computação gráfica tem se desenvolvido muito a partir 
da popularização de máquinas mais potentes e velozes. Foi 
somente depois que os micros 386 se tornaram o padrão 
básico de aquisição, para uso pessoal, que a indústria de 
software encontrou mercado para viabilizar seus projetos 
mais interessantes. Até então, as produções gráficas se 
limitavam aos grandes equipamentos, ougrandes empresas. 

Mas a produção em computação gráfica, para consumo 
via computador, ainda esbarra em questões técnicas de 
difícil solução. Não tanto pelo aspecto de hardware ou de 
engenharia de software, mas pelo tipo de mercado que se 
formou nesses últimos anos. 


Podemos dividir a computação gráfica em três grandes 


Placas com chipset PARADISE 


SETMOD: 
mov 
int 
ret 


ax, 005fh 
10h 


SETBAN: 
push ax 
push dx 
mov dx, 3ceh 
mov ax, 50fh 
out dx, ax 
mov ah, [Banco] 
shl ah,1 
shi ah,1 
shl ah,1 
shl ah,i 
mov al,9 
out dx, ax 
sti 
pop 
pop ax 
ret 


dx 


14 MICRO SISTEMAS 





setores: para uso em vídeo, como as vinhetas que vemos 
frequentemente na televisão; para impressão em papel, 
comoo desktop publishing; e para mídia digital, como temos 
visto em animação por computador, multimídia, jogos, 
hipertexto, etc. 

Para que o computador seja usado como mídia, ou seja, 
para que ele possa responder com eficiência a uma produção 
interativa, nos moldes e padrões das interfaces gráficas 
atuais, é necessário que haja uma qualidade mínima nas 
imagens usadas. Durante alguns anos acreditou-se 
incontestavelmente que seriam as super resoluções, acima 
de 1000 pixels, por permitirem imagens mais próximas da 
realidade e com mais qualidade, as responsáveis pelo 
surgimento de um novo conceito de mídia. Foi grande a 
corrida para as placas superVGA, com capacidade para 
manipular resoluções maiores que essas. 

Mas, apesar do fato de que, quanto mais pontos por 
imagem, mais qualidade ela possui, esqueceu-se de um 
detalhe dos mais importantes: quanto mais detalhes, ou 
pontos, mais memória será necessário e consequentemente 
mais velocidade de processamento. As máquinas teriam 
então que aumentar em muito seu poder de processamento 
para, por exemplo, produzir uma animação em tempo real 
das mais simples. Ainda está longe o dia em que veremos 
na tela de um 486, operando em uma resolução acima de 
1000 pixels, uma animação em tempo real e com qualidade. 

À questão técnica estava sendo, até bem pouco tempo 
atrás, enfocada por um ângulo errado. Não é necessariamente 
a maior quantidade de pontos que determina se a imagem 
é boa ou não, mas sim a quantidade de cores que podem 
ser mostradas ao mesmo tempo. O olho humano não 
percebe os minúsculos pontos das grandes resoluções, 
mas nota claramente quando “falta” cor na imagem. 

Os fabricantes de placas estão então se voltando não 
mais para produzir resoluções maiores, acima de 2000 
pontos, mas sim placas com mais cores. Isto explica o 
sucesso que as placas HiColor e TrueColor estão tendo no 





mercado (veja box). 

Mas, apesar de todo o avanço tecnológico que temos 
assistido, ainda falta muita coisa para termos de fato bons 
produtos com animação. Vejamos algumas questões: 


MEMÓRIA: 

Para manipular imagens, o computador precisa dispor de 
uma grande quantidade de memória. A memória RAM é 
importante, mas não essencial, pois por mais que se tenha, 
nunca será o bastante. Veja a tabela de resoluções / 
quantidade de memória por tela a seguir: 


640 x 480 x 16 cores 150 Kbytes 
640 x 480 x 256 cores 300 Kbytes 
640 x 480 x 64 Kcores 600 Kbytes 
640 x 480 x 16 Mcores 900 Kbytes 
800 x 600 x 16 cores 235 Kbytes 
800 x 600 x 256 cores 469 Kbytes 
800 x 600 x 64 Kcores 938 Kbytes 
800 x 600 x 16 Mcores 1.407 Kbytes 
1024 x 768 x 16 cores 384 Kbytes 
1024 x 768 x 256 cores 768 Kbytes 
1024 x 768 x 64 Kcores 1.536 Kbytes 
1024 x 768 x 16 Mcores 2.304 Kbytes 
1280 x 1024 x 16 cores 640 Kbytes 
1280 x 1024 x 256 cores 1.280 Kbytes 
1280 x 1024 x 64 Kcores 2.560 Kbytes 
1280 x 1024 x 16 Mcores 3.840 Kbytes 


Note que do 640 x 480 para o 1280 x 1024 há um 
aumento de resolução de quatro vezes, ou seja, é preciso 
quadro pontos em 1280 x 1024 para equivaler a um ponto 
na resolução 640 x 480. Mas não é apenas isto. Com 
exceção da maior resolução, todas as demais tem uma 
relação de ponto de 1.33, ou seja, o ponto não é propriamente 
umcírculo, mas uma espécie de elipse gorda. Meio retangular. 
Na resolução 1280 x 1024 a relação cai para 1.25, o que 
produz um ponto mais redondo e portanto mais próximo do 
real. 


SUPORTE: 


Olhando a tabela, podemos notar que a melhor resolução 
seria 1280 x 1024 x 16 Mcores, ou seja, True Colorem super 
aita resolução. Mas, acompanhe o raciocínio: se cada tela 
dessas tem o tamanho de 3.75 Megabytes, um segundo de 
animação (24 quadros por segundo pelo padrão 
cinematográfico) nos custaria 90 Megabytes. Trinta segundos, 
que é o tempo de um comercial de televisão, sairia pela 
módica quantia de 2.700 Megabytes, ou 4,5 CDs completos 
(cada CD pode ter 600 Megabytes). 

Além disso, seria necessário uma excelente performance 
do processador para transferir cada uma das telas a tempo 
de completar os 24 quadros por segundo. De onde para 
onde”? Bem, considerando que as placas de vídeo possuem 
memória apenas para mostrar uma tela, teremos que fazer 
a transferência de algum outro lugar. 








De disquetes não é possível, pois haveria uma quantidade 
fantástica de trocas - 75 disquetes de 1.2 em menos de 1 
segundo, para obter o tal segundo de animação (nem o The 
Superman ou o The Flash). Do CD ROM também não é 
possível, pois a taxa de transferência, mesmo dos mais 
modemos acionadores, não é alta o suficiente. Da memória 
principal, a 50 dólares o Megabytes, seria necessário uma 
máquina cujo valor de aquisição estaria na casa dos 4.500 
dólares (só de memória). Do HD? Talvez, afinal os super IDE 
possuem altas taxas de transferência e umaquantia razoável 
de Megabytes. 


mMEic-sfeo saca os siENIDISNEE 


SETMOD: 
mov 
int 
ret 


ax, 005dh 
10h 


SETBAN: 
push 
push 


ah, [Banco] 
ah, 2 

dx, 3c4h 
al, 0eh 
dx, ax 


dx 
ax 


VELOCIDADE: 


Mesmo que fosse possível equacionar a questão da 
memória onde estariam armazenadas as telas, ainda assim 
teriamos um problema extra a resolver: a velocidade de 
transferência da memória principal para a memória de vídeo. 

O PC, na definição de alguns analistas, é como o camelo 
daquela piada, ou seja, o camelo seria um cavalo projetado 
por uma equipe de engenheiros. Na verdade, foram tantas 
as concessões à compatibilidade com os primeiros micros 
que hoje aquilo que chamamos de PC processa uma 
quantidade extrade informação apenas “paraser compatível”. 

Esse tipo de computador não foi concebido para 
computação gráfica e portanto nele, tudo será mais difícil e 
complicado. Por exemplo: a imagem a ser mostrada na tela 
do monitor deverá estar numa memória especial, que se 
encontra na placa de vídeo. O processador não se comunica 
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Placas com chipset OAKTECH 


SETMOD: 
mov 
int 
ret 


ax, 53h 
10h 


SETBAN: 
push ax 
push 
mov 
and 


dx 

al, [Banco] 
al,15 
ah,al 
al,i 

al,i 

al,i 

al,i 


mov 
shl 

shl 

shl 

gshl 

or al,ah 
mov 

out 

sti 

pop dx 
pop ax 
ret 


dx, 3dfh 
dx,al 


com ela diretamente. Quando quer escrever algo na tela, 
mandamos a informação para um determinado local da 
memória principal e o processador da placa se encarrega de 
pegar essa informação e colocála na memória de vídeo, 
numa correspondência de endereços. 

Isto gasta tempo e velocidade de processamento, afinal, 
não importa o quão rápido seu processador possa colocar 


AS MODERNAS PLACAS SUPERVGA 


Há algum tempo que o mercado de hardware não faz 
alarde do lançamento de maiores resoluções gráficas. 
Paramos, por enquanto, no formato 1280 x 1024. 

Isto pode ser explicado em parte pelo aumento de 
memória e de velocidade de processamento que as 
resoluções mais altas impõem ao sistema. Por outro 
lado, os usuários começaram a perceber que de nada 
adianta muita definição e pouca cor, afinal, os programas 
teriam que “emular” aquelas cores que não fossem 
possíveis, ficando dessa forma ainda mais lentos no 
tratamento das imagens. 

Como advento das placas HiColore TrueColor, percebeu 
se que uma imagem (por exemplo uma foto digitalizada) 
na resolução 640 x 480 com mais cores que o padrão 
normal (16 ou 256) era superior à uma imagem com duas 
ou mesmo quatro vezes mais resolução, mas com menos 
cor. 

Daí o sucesso que essas placas estão conquistando 
no mercado, não esquecendo também que uma placa 
HiColor custa o mesmo que uma placa SuperVGA 
tradicional. 

Aproveitando o bonde, os fabricantes produziram 
sistemas de processamento etransferência da informação 
mais rápidos e passaram a vender essas placas como 
placas “aceleradoras” para Windows. Santo marqueting... 
Mas afinal, quem mandou o tratamento de vídeo da 
Microsoft ser tão burro! 
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a informação num local determinado. O que irá importar 
mesmo é a velocidade com que a placa pega essainformação 
e a coloca na sua memória. 

A indústria de hardware tem produzido placas mais 
velozes a cada ano e já são comuns placas aceleradoras, 
vendidas justamente para minimizar este problema. 


O MERCADO: 

Para quem está apenas pensando em termos de uso, o 
raciocínio termina por aqui, afinal, já estã claro que devemos 
adquirir o melhor equipamento possível. Muita memória de 
armazenamento, alta performance de processamento, etc. 

Mas, para quem pretende criar programas e produtos 
para o mercado de informática, estas questões não são tão 
simples assim, afinal o planejamento de um produto não é 
direcionado para uma única máquina, mas sim para um 
universo bem diversificado de sistemas. 

Daí, a solução usada ter necessidade de ser a mais 
abrangente possível para que os resultados compensem o 
investimento. 

Quantas máquinas existem comcinco acionadores de CD 
conectados, placa True Color com 4 Mbytes, 90 Megabytes 
de memáória principal e mais de 400 Mhz de velocidade de 
processamento? 

É claro que isto é um exagero, como também é exagerada 
a idéia de que quanto mais resolução, melhor. O correto é 
dizer que quanto mais cores, melhor. 


A grande diferença entre uma imagem tradicional VGA, 
em 256 cores, e uma imagem TrueColor é que neste 
segundo caso não existe a palette de cores pré-definidas. 
Cada pixel é definido por um conjunto de três bytes, 
indicando a intensidade de cada componente RGB. Dessa 
forma, dizemos que essas placas atingem a fantástica 
quantidade de 16.777.216 cores simultâneas na tela, ou 
16 Mcores. O olho humano não distingue nem a metade 
desse conjunto. 

As placas HiColor ainda trabalham com o sistema de 
palette, porém ela é aumentada de 256 para 65.535 
cores. Já deu para perceber que uma palette desse 
tamanho irá exigir que o código do pixel seja um valor de 
16 bits. Como o barramento de dados entre a placa e o 
micro também é de 16 bits, mantém-se uma boa perfor- 
mance de processamento. 

Além disso, 64 Kcores são suficientes para resolver os 
mais intrincados tons em degrade. São raras as situações 
onde a necessidade de mais cores compromete a qualidade 
da imagem. 

Essas placas já estão tão disseminadas que programas 
como windows e seus aplicativos as aceitam sem maiores 
problemas. 

Mas, em que pese todas essas vantagens, esse 
aumento de qualidade nas imagens ainda impede que 
animações sofisticadas sejam executadas em tempo 
real. Para manipulação de imagens estáticas, no entanto, 
amelhora de qualidade é de dar água na beca de qualquer 
usuário. | 








POR QUE O MODO 256? 


Para quem planeja a criação de produtos voltados para 
o emergente mercado de multimídia, uma das preocupações 
mais importantes é selecionar o modo de operação com o 
qual se deseja trabalhar. Nos dias atuais, qualquer produto 
de última geração envolve, invariavelmente, boas imagens 
e alguma animação. 

Essas questões podem até sertransparentes, quando se 
pensa em termos de Windows ou outro ambiente gráfico, 
mas nunca se deve esquecer que, justamente por ser 
genérico e pretender englobar todas as situações, esses 
ambientes tornam-se extremamente lentos no 
processamento de imagens.Em muitos casos, é 
imprescindível que o produto, ou programa, assuma 
totalmente o controle dos periféricos (principalmente da 
parte relativa ao vídeo). São esses casos que permitem uma 
produção mais criativa, original, e com umarespostafuncional 
bem mais eficiente que os modelos adotados pela atuais 
interfaces gráficas. Um programa criado dessa forma não 
fica com aquela “cara de coisa do Windows”. 

Sob este aspecto, tem se destacado a resolução 640 x 
480 x 256 cores como a opção que melhor responde aos 
requisitos mais importantes da moderna programação gráfica: 

- Velocidade de processamento: por não manipular 
uma quantidade absurda de bits e bytes, esta resolução 


Placas com chipset EVEREX 


SETMOD: 
mov 
mov 
int 
ret 


ax, 70h 
bl,30h 
10h 


SETBAN: 
push 
push 
push 
mov 
mov 


ax 
dx 

Cx 

cl, [Banco] 
dx, 3c4h 
mov al,8B 

out dx,al 

inc dl 

in al,dx 

dec dl 

ghl al,il 

ghr Cl;i 

rcr al,l 

mov ah,al 

mov al,8 

out dx, ax 

mov di,0cch 
in al,dx 
mov dl,0c2h 
al, Odfh 
cl,i 


or al,20h 
SETBAO : 

out 

sti 


Pop 
Pop 
Pop 
ret 





permite experiências bemiinteressantes de animação. Apesar 
disso, ainda não é possível produzir uma animação de tela 
inteira, em tempo real. Os programas mais modemos 
apelam para a animação de apenas partes datela (ou, como 
são chamadas: janelas de animação). Para se ter uma idéia 
da dimensão desse problema, basta ver que, nos meios 
profissionais é aceito como padrão de resolução para 
animação cinematográfica um retângulo de 150 x 100 
pixels. Isto é pouco mais do que um “quadradinho” da tela. 


- Armazenamento: por trabalhar com o sistema de palette 
e ter uma reduzida quantidade de cores, o padrão 640 x 480 
x 256 cores permite obter excelentes taxas de compressão 
dos arquivos. Dependendo do caso, uma tela inteira pode 
ocupar poucas centenas de bytes. 


- Qualidade das cores: a possibilidade de edição indi 
vidual de cada cor faz com que o conjunto de cores da palette 
possa assumir os tons e matizes mais adequados para cada 
tela. 


- Qualidade do pixel: a relação 1.33 e a quantidade de 
pixels por imagem permitem uma nitidez muito boa. Basta 
lembrar que a televisão possui pouco mais de 500 linhas 
para preencher a tela toda. Portanto, a resolução 640 x 480 
x 256 cores produz uma imagem quase no padrão da TV. O 
que fica faltando não diz respeito a quantidade de pixels, 
mas sim a quantidade de cores. Enquanto na televisão cada 
ponto possui uma definição independente de cor, no esquema 
de palette os pontos só podem variar dentro das definições 
já estabelecidas. 


Somando-se os prós e contras, e lembrando que uma 
imagem não pode ser considerada apenas pelo que se vê 
na tela do monitor - hã o ammazenamento, compactação / 
descompactação, velocidade de manipulação, etc - chega- 
se à conclusão de que o formato 640 x 480 x 256 cores é 
o que tem a melhor relação custo / benefício do momento. 
Quando as máquinas estiverem rodando bem acima dos 
100 Mhz, o sistema de geração de imagens deixar de ser 
independente (como é hoje) e os meios de armazenamento 
atingirem grandes velocidades de transferência, aí então 
poderemos voltar ao assunto. 


PROGRAMANDO EM 640 X 480 X 256 


Jã que vamos nos concentrar nesta resolução, nada mais 
justo que esclarecer alguns pormenores relativos ao formato. 
Em primeiro lugar, nesta resolução uma tela ocupa o espaço 
de 307.968 bytes. São 307.200 bytes para os pixels e mais 
768 bytes para a palette (ou definição das cores). 

Cada uma das 256 cores da palette é composta por três 
bytes que informam a intensidade de cada componente da 
cor, no formato RGB (Red, Green, Blue). Assim, cada cor é 
definida e passa a ser representada, na tela, por um código 
de um byte. Quando a placa vai gerar a imagem, ela pega na 
tela o código do pixel (esse valor de O a 255) e encontra na 
palette a definição RGB correspondente, para enviála ao 
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mrenideo salas Toi ANNA ETA 


SETMOD: 
mov 
int 
ret 


ax, 62h 
10h 


SETBAN: 
push ax 
push dx 
mov ah, [Banco] 
mov dx, iceh 
mov al, 0b2h 
out dx,al 
inc dl 
in al, dx 
ghl 
and 
or ah,al 
mov 


ah,1 
al,0elh 


al, 0b2h 
dec dl 


out 
sti 
pop dx 
pop ax 
ret 


dx, ax 


monitor. 

À grande vantagem desse sistema é que cada pixel é 
representado por apenas um byte, sem a necessidade de 
nenhum tipo especial de operação como as rotações e 
shifts, quando se trabalha com quantidades menores de 
cores. Mas, devido ao fato das placas de vídeo terem 
barramento de 16 bits, o processador só pode manipular 
65536 bytes (64 Kbytes) ou pixels de cada vez. Levando em 
consideração que umatela possui 300 Kbytes, o processador 
intemo da placa precisará ser informado sobre qual grupo 
(ou segmento) de 64 Kbytes desejamos produzir 
modificações. 

Parece muito complicado, mas no fundo não é. 
Principalmente porque isto deve ser feito em Assembler e só 
dará algum trabalho na primeira vez. Ah! sim, para qualquer 
resultado mais interessante, quando se trabalha nessas 
resoluções conhecidas como Super VGA, é imprescindível o 
uso da linguagem Assembler, afinal não só a velocidade de 
processamento é importante mas também a eficiência das 
rotinas. 


OS DRIVERS DE VÍDEO 


Bem, aqui encontramos nosso primeiro grande problema. 
Quando a IBM projetou a placa VGA, o máximo de qualidade 
que se pretendeu foi a resolução 640 x 480 x 16 cores. 
Acimadessa resolução o campo ficou aberto às especulações 
e sandices dos fabricantes. Cada um bolou um esquema 
diferente que, apesar de manter comum certas resoluções, 
exige uma forma diferente para a habilitação do banco, ou 
segmento, de 64 Kbytes e para sua instalação. Nada 
intransponível e que não pudesse ser desvendado pelos 
programadores, mas isto provoca uma frequente 
incompatibilidade entre placas diferentes. 

Apesar de termos hoje diversas marcas e modelos de 
placas, existem uns poucos fabricantes que produzem o 
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chip do processador de vídeo. Assim, temos apenas alguns 
modelos que são realmente diferentes. Chamamos o conjunto 
de processamento da placa de CHIPSET e a lista a seguir 
apresenta os mais importantes, com seus respectivos 
códigos de instalação do modo 640 x 480 x 256 cores. 


ADA. ssenissa sado siaai sis Canis 61h 
ATI Vga Wonder...........eceeseeesesa 62h 
CHIPS & TECHNOLOGIES................ 79h 
EVEREN ss aesaitaniassaiido es dnco Dus ias bass aca 30h 
OAK TECHNOLOGIES...................... 53h 
PARADISE, ses cosesisiisiaisacsi sata anaisdiss oFh 
CYRRUS LOGIC asquassse ss nbssnsiasanvaças 5Fh 
TRIDEN  ssivesaesis assita a ie contadddi suada 5Dh 


Placas com chipset VIDEO” 





SETMOD: 
mov 
mov 
int 
ret 


ax, 6£05h 
bl,67h 
10h 


SETBAN: 
push ax 
push dx 
push cx 
mov al, [Banco] 
and ax, 15 
mov ch,al 
mov dx, 3c4h 
mov ax, 0ea06h 
out dx, ax 
mov ah, ch 
and ah,i 
mov al, 0£9h 
out dx, ax 
mov al,ch 
and al,1100b 
mov ah,al 
shr ah,1 
shr ah,i 
or ah,al 
mov al,0£f6h 
out dx,al 
inc dx 
in al, dx 
dec dx 
and al,not 1111b 
or ah,al 
mov 
out 
mov 
mov 
ghl 
and 
mov 
in al,dx 
mov 
and 
or al,ah 
out 
sti 
Pop Cx 
pop dx 
pop ax 
ret 


al, 0£f6h 
dx, ax 

ah, ch 

cl,4 

ah, cl 

ah, 100000b 
dl,0Occh 


dl,0c2h 
al,not 100000b 


dx,al 











TSENG (Genoa, Orchid, Willow)...... 2Eh 
TSENG 4000 sata siso cnsdecs daeinsiadtaas 2Eh 
VIDEO: SEVEN ssuassiscaniregib iii emacs 67h 


Apesar dessa diversidade, no Brasil a grande maioria dos 
micros pessoais está baseada em placas com CHIPSET da 
Trident. Isto porque é o mais barato de todos, pesar de ser 
a placa de vídeo mais lenta do mercado. É isso mesmo, cada 
placa possui uma velocidade própria de funcionamento, 
pois não é o processador do micro quem manda a informação 
para a placa, mas sim a placa que coleta a informação numa 
região especial da memória principal. Dessa forma, não 
adianta nada trocar seu 386 SX de 25 Mhz por um 486 de 
66Mhz se continuar com a mesma placa Trident. Para certos 
procedimentos, não haverá ganho nenhum na performance 
final do programa. 

Com isso, o primeiro passo a ser dado na programação 
é identificar o fabricante e modelo da nossa placa de vídeo. 
Para tanto, basta uma rápida consulta ao manual da placa. 
Já sei, não tem! Bem, existem um monte de programinhas 
shareware que pretendem “descobrir” quem foi o pseudo- 
fabricante da placa de vídeo. Na maioria dos casos eles 
dizem que a placa é de fabricante desconhecido, mas as 
vezes conseguem acertar na mosca. 

Se isso não for possível, então uma “olhada” nos 
primeiros bytes do segmento COO0Oh, utilizando um editor de 
memória, ou o próprio Debug do DOS, certamente mostrará, 
em algum lugar, uma string contendo o nome do fabricante. 
Se isto também não for possível, recomendo trocar 
urgentemente a placa de vídeo, pois ela deve ser de um 
fabricante tão suspeito que preferiu não colocar seu nome 
nela. 

Identificado o dito cujo, agora é só usar ainterrupção 10h, 


Placas com chipset CHIPSTECH 


SETMOD: 
mov 
int 
ret 


ax, 79h 
10h 


SETBAN: 
push ax 
push dx 
mov dx, 46e8h 
mov ax, leh 
out dx, ax 
mov dx, 103h 
mov ax, 0080h 
out dx, ax 
mov dx, 46e8h 
mov ax, O0eh 
out dx, ax 
mov ah, [Banco] 
ghl ah,i 
shi ah,1 
mov al,10h 
mov dx, 3ãd6h 
out dx, ax 
sti 
Pop 


dx 
Pop ax 
ret 








dedicada aos serviços do vídeo, para habilitar a resolução 
desejada. Se colocarmos essa pequena rotina e mais a 
rotina específica para chaveamento dos bancos de memória 
em um determinado local de nosso programa, podemos 
trabalhar com todo o resto de forma padronizada. Ao trocar 
de placa, ou para rodar em outro tipo de placa, bastará 
mudar apenas essas duas pequenas rotinas. 

Vamos então estabelecer como padrão a rotina SETMOD 
para instalar o modo 640 x 480 x 256 cores e a rotina 
SETBAN para habilitar o banco de memória específico. Nas 
listagens desta matéria, você encontrará os procedimentos 
padrões para os principais modelos de CHIPSET do mercado. 


MEI nico pacas SIINANIO 


SETMOD: 
mov 
int 
ret 


ax, 2eh 
10h 


SETBAN: 

push ax 
dx 
al, [Banco] 
al,7 
ah,al 


push 
mov 

and 

mov 

shl 

shl 

ghl 

or al,ah 
or al,01000000b 
mov dx, 3cdh 
out dx,al 
sti 

pop dx 

Pop ax 

ret 


al,il 
al,i 
al,i 


A MANIPULAÇÃO DO VÍDEO 


À imagem que aparece no monitor está efetivamente na 
meméóriada placa de vídeo. Poresta razão, paratrabalhamos 
com a resolução 640 x 480 x 256 cores é necessário uma 
placa com no mínimo 512 Kbytes. A grande vantagem desta 
resolução é que sua frequência de funcionamento é idêntica 
a do monitor VGA, ou seja, você não precisa ter um monitor 
multisync para operar com ela. 

Como já foi visto, o processador do micro não acessa 
(infelizmente) essa memória da placa. Tudo tem que ser 
feito porvias indiretas. A bem da verdade, o sistema de vídeo 
do PC é algo de fazer inveja aos burocratas de Brasília e só 
foi mantido desta forma para compatibilizar os programas 
que já existiam, com as máquinas mais modemas. 

Seja como for, o fato é que é desse jeito e ponto final. 
Então, obedecendo a padronização IBM, para colocar uma 
informação natela precisamos atuar na região especialmente 
dedicada a isto, nos primeiros 640 Kbytes da memória do 
micro.Como se trata de alta resolução, o endereço base 
iniciano segmento AOO0h e o sistema permite a manipulação 
em todo o segmento, de 0000h a FFFFh. Dessa forma, ao 
colocarmos um byte num desses endereços, o processador 
da placa irá transferílo para o endereço correspondente (de 
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0000h a FFFFh) dentro do banco de memória de vídeo que 
estiver habilitado. 

Chaveando os bancos e acessando os endereços, 
podemos manipular todos os 307.200 pixels que compõem 
uma tela nessa resolução. Já a definição das cores, ou 
palette, poderá ser resolvida através dos registradores 
específicos que controlam a VGA. 


MANIPULAÇÃO DAS CORES 


Como já vimos, na área de vídeo não manipulamos as 
cores mas sim um código que estabelece qual das 256 
definições de cor será usada para aquele pixel. Este sistema 
tem vantagens e desvantagens. A grande desvantagem é 
que os pixels não são independentes, ou seja, é preciso 
otimizar as cores necessárias para que a imagem “caiba” na 
tela. Por outro lado, esse sistema permite uma grande 
velocidade de manipulação da informação gráfica. No sistema 
ideal, a True Color, cada pixel é definido individualmente por 
três bytes, relacionados com os componentes RGB da cor. 

Outra característica dos modos 256 cores da VGA é que 
a definição da cor, na palette e que é feita por três bytes 
(RGB), só usa 6 bits de cada byte para ajustar a intensidade 
de cada componente (os valores variam de O a 63). Portanto, 
só podemos ter 262.144 variações de tonalidade para cada 
cor definida. Nas placas True Color, cada cor pode variar 
entre 16.777.216tons.Para informar ao sistema como cada 
cor deve ser definida, temos que acessar os registradores 
intemnos da VGA. À rotina SETPAL foi construída para ajustar 
as 256 cores da palette, a partir de um buffer pré-definido. 
Este procedimento ajuda a manter uma cópia das cores que 
estão na tela, sem a necessidade de se acessar com 
frequência os registradores da placa. 

Seu funcionamento se baseia no sistema de leitura/ 
escrita automática da VGA. O endereço de 1/0 03C8h é 
usado para controlar a escrita nos registros de cores e o 
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ditos ifero asilo ali toi IN) SN [CRS 10/00) 


SETMOD: 
mov 
int 
ret 


ax, 2eh 
10h 


SETBAN: 
push ax 
push dx 
mov ah, [Banco] 
mov dx, 3bfh 
mov al,3 
out dx,al 
mov dl, 0d8h 
mov al, 0a0h 
out dx,al 
and ah, 15 
mov al,ah 
shl al,1l 
shl al,i 
gshl al,l 
gshl al,1 
or al,ah 
mov 
out 
sti 
pop dx 
pop ax 
ret 


dl,0Ocdh 
dx,al 


endereço 3C9h é usado para passar os dados do computador 
para a placa. Ao colocarmos na porta 03C8h o valor 
correspondente a uma das 256 cores, a placaficaesperando, 
pela porta 03C9h, três bytes que serão usados como 
definição RGB. Para a leitura, é só usar a porta 03C 7h para 
que a placa envie três bytes pela porta 03C9h. 

Quando um modo de 256 cores é habilitado, a palette é 
carregada automaticamente com as definições default. As 
16 primeiras cores são idênticas ao modo 16 cores da EGA/ 













TABELA DE PREÇOS 


*MS-DOS 5.0 - Int. a inform. UUS$22.00 É 
*WordStar 5.0/6.0 a 
*Lotus 123 .00 EM e 
*Quattro Pro pa Rd 
*dBase III Plus Interativo 

*dBase Ill Plus Programado oo 0: 
*Clipper 5.01 Básico .00 EG 
*Ventura Publisher - Edit.EI. E E 
*word 2.0 

*Windows 3.1 


ad Basic 






























Placas com chipset AHEAD v. A 


SETMOD: 
mov 
int 
ret 


SETBAN: 
push 
push 
push 
mov 
mov 
mov 
out 
mov 


in al, dx 


mov 
and 
shr 
jnc 


ax, 61h 
10h 


ax 
dx 

cx 

ch, [Banco] 
dx, 3ceh 
ax, 200£h 
dx, ax 
dl,0cch 


dl,0c2h 

al, 11011111b 
ch,i 

SETBAQ 





or al,00100000b 
SETBAO: 

out dx,al 

mov dl,0cfh 

mov al,0 

out dx,al 

inc dx 

in al, dx 

dec dx 

and al,11111000b 

or al,ch 

mov ah,al 

mov al,o 

out dx, ax 

gti 

pop Cx 

Pop dx 

Pop ax 

ret 


VGA. As cores de 16 a 31 correspondem ao mesmo grupo, 
porêm em tons de cinza. As cores de 32 a 247 são ajustadas 
como 24 grupos de cor, cada qual consistindo de nove tons. 
Paracadatom existem três níveis de intensidade e saturação. 
Às cores restantes (de 248 até 255) são definidas com o 
valor zero, o que representa a cor preta. 


ACHANDO O LUGAR CORRETO 


Só falta agora criar um procedimento para acessarmos 
qualquer endereço da memória de vídeo, ou seja, dada uma 
certa coordenada de tela, calcular em que banco e endereço 
estará o pixel correspondente. Para isso, usaremos duas 
variáveis, Posy apontando para a linha e Posx para a coluna. 

À rotina CALPOS usa também as variáveis Endvid para 
guardar o endereço dentro do segmento e a variável Banco, 
para guardar o número do banco de memória que será 
habilitado. 


CONCLUSÃO 


Às 256 cores do modo 640 x 480 podem não ser o ideal 
em termos de grandes telas, principalmente quando as 








imagens possuem muitas variações de tons (degrades), 
mas é sem dúvida a que a apresenta a melhor relação custo 
beneficio. Alguns programas comerciais mais recentes tem 
mostrado uma preocupação excessiva com resoluções 
maiores que essa, causando uma demora nas operações 
mais corriqueiras. Imagens com mais resolução exigem 
sempre máquinas mais potentes e monitores mais 
sofisticados.Por outro lado, a tecnologia de programação 
para manipular imagens em 640 x 480 x 256 cores já está 
bastante difundida e testada. Além disso, essa resolução é 
obtida em qualquer micro baseado na VGA, bastando para 
isso que a placa tenha pelo menos 512 Kbytes. 

Como as resoluções acima do padrão VGA (640 x 480 x 
16 cores) não foram definidas pela IBM, alguns pequenos 
problemas irão surgir. Por exemplo: nas resoluções com 256 
cores não existe suporte total para o mouse. Como a 
programação busca ser cada vez mais gráfica, este detalhe 
pode ser um entrave para o desenvolvimento de programas. 
Na verdade, teremos que construir as nossas próprias 
rotinas de controle do cursor, o que também não é nenhum 
bicho papão. 

Se você é do ramo ou tem interesse nessa área, fique 
ligado pois na próxima edição iremos apresentar não só um 
novo sistema de controle do mouse, como também rotinas 
para criar procedimentos associados a botões, no melhor 
estilo Windows. E se o tempo para digitação for curto, é só 
solicitar à PRO KIT o disco Biblioteca VGA/256. Nele você 
terá todo o material publicado nesta série de matérias e 
também rotinas diversas para manipulação gráfica. E tudo 
em Assembler. 


Até a próxima edição. 


Placas com chipset AHEAD v. B 


SETMOD: 
mov ax, 61h 
int 10h 
ret 


SETBAN: 
push ax 
push dx 
push Cx 
mov ch, [Banco] 


mov dx, 3ceh 
mov ax, 200fh 
out dx, ax 
mov ah,ch 
mov cl,4 
shl ah, cl 
or ah,ch 

mov al, Odh 
out dx, ax 
sti 

Pop Cx 

pop dx 

Pop ax 

ret 
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- Rotina para calcular o endereco do Pixel 


Posy  dw 0 
Posx  dwo0 
Endvid dw O 
Banco db 0 


CALPOS: 
mov ax, 640 

mov dx,o0 

mov bx, [Posy] 

mu l bx 

mov di, [Posx] 

add di,ax 

ade dx,0 

mov [Endvid],di 

mov [Banco],dl 

call ETBAN 

ret 


;Multiplica qt de linhas por 640 


; Soma a qt de colunas 

; Soma o carry se houver estouro 
;Salva o endereço 

;Salva o número do banco 
;sHabilita o banco 


- Rotina para definir as cores da palette 


Bufpal 768 DUP (0) 


SETPAL : 
mov 
mov 

SETPAO: 
mov 


cx, 256 
dx, 3c8h 


; Quantidade total de cores 
; Endereco I/O dos registradores 


ax, 256 
gub al,cl 
out dx,al 
inc dx 

mov al, [si] 
inc si 

out dx,al 
mov al, [si) 
inc si 

out dx,al 
mov al, [si] 
inc si 

out dx,al 
dec dx 
Loop SETPAO ; Próxima cor 
ret 


; Número do registrador da cor 
:Ajusta a VGA para o registrador 
;oObtém a definição Red 


;Envia para a placa 
;Obtém a definição Green 


;Envia para a placa 
;Obtém a definição Blue 


; Envia para a placa 





O RIO GANHOU UMA NOVA E DIFERENTE LOJA 
NUM MESMO LOCAL VOCÊ ENCONTRA 






Contabilidade 


Atualizado, com fontes, Diário, 


EDIGO EDIOURO: LIVROS DOS MAIS VARIADOS ASSUNTOS 
ELETRÔNICA; LIVROS, ANTENAS PARA RADIOAMADORES E PX, 
ANTENAS PARABÓLICAS, ETC. 
INFORMÁTICA: SUPRIMENTOS, EQUIPAMENTOS, COMPLETA 
LINHA DE LIVROS PARA INICIANTES E PROFISSIONAIS COM 20% DE 
DESCONTO. 

MANUAIS EM PORTUGUÊS: VIDEO, CÂMERAS, AGENDAS, 
COMPUTADORES, FAX, TELEFONE SEM FIO E ETC. TEMOS 
PRRROS PRONTOS É  TRADUZIMOS ARTIGOS DE REVISTAS E 
| 





VENHA CONHECER A 


gaquidtrônica 


Av. Marechal Floriano,167 A - CEP:20080-005 
Rio de Janeiro - RJ 
:(021)263-9590 FAX:(021)263-8840 






22 MICRO SISTEMAS 












aÃ oo BB PICAIhAS S Etr 


VENDAS DE EQUIPAMENTOS 


SUPRIMENTOS EM GERAL 


NÃO PERCA TEMPO | 


CATÁLOGO POR. 
À OU TELEFONE 


DOS OS NOSSOS PROGRAMAS | 
Ala Os E prerlçeda 


EE 10 DIAS 


INFORMATICA 


Av. Marechal Floriano, 1220 
Guararapes - SP - CEP:16700-000 


TEL.:(0186)61-3381 





360 KB, R$ 30,00. OUTROS 
APLICATIVOS: Gestor 
Comercial (estoque e cupom 
de caixa), 4 disquetes, R$ 30,00; 


Bancário, R$ 15,00; Mala Direta 
(Cadastros), R$ 20,00. 
Softs para PC XT, até 406 e 
Pontium, ii iara e 





INFODATA Informatica Ltda. 
Caixa Postal 1224, cep 01059 970 
São Paulo, SP. Tels.: (011) 


259-8169 e 259-6399 


mé LES Du Í qiune 


mad 


às ana E 




































Promoções 
do Mês : 


azemos Aluguel e Venda 
de CD's, Consulte-nos 


ASTERIX 


BABY JO IN GOING HOME (VI 
BACK TO THE FUTURE Hi M 


BAD DUDES 


BATMAN THE MOVIE 


BRUCE LEE LIVES 
BUDOKAN 
CABAL 


CATACUMB (V) 


CHALL. ANCIENT EMPIRES (V) 


COLORADO 


COMMANDER KEEN IV (Vi 
COMMANDER KEEN V (4) 
COMMNADER KEEN VI (Vi 
CONAN THE CIMMERIAN (V) 
CONTRAPTION ZACK (V) 


CRIME WAVE M 


60060 CVYBERCENIC RANGER (VI 


DESPERADO |! 
DICK TRACY 
DIE HARD 


DOUBLE DRAGON III (9 
DOWN RAIDER (V) 
DRAGONS LAIR Ui 


DUKE NUKEN (V) 


EL CAPTAIN TRUENO 


FREDDY HARDEST 
GHOSTBUSTERS H 
CoDS M 
COLDEN AXE 
CREMLINS 11 

CUY SPY 


50065 HOME ALONE (4) 
HORROR ZOMBIE (Vi 
IND. JONES AND LAST CRUSADE 


IKARI WARRIORS 


JiLL OF THE JUNGLE 11 
KARATEKA 
LIFE & DEATH (VI 


MECA MAN 
METAL GIAR 
METAL MUTANT 
MIAMI VICE 
MOONWALKER 
NUCLEAR WAR 
OUS WELL 


OLIVER & COMPANY 
OPERATION WOLF 


OS TRÊS PATETAS 


OUT OF THIS WORLD M 
PANZA KICK BOXER (V) 


PIT FIGHTER M 
PRE - HISTORIK 
PREDATOR 2 (45 


PRINCE OF PERSIA 

PRINCE OF PERSIA EDITOR 
PRINCE OF PERSIA 11 (V) 
PROFECIE OF VIKING CHILD (V) 


RASTAN SAGA 
RENEGADE 
RISK WOOD M 
ROAD RUNNER 


dO009 ROBOCOP (DATA WEST) 
RAB8IT 


ROGGER 
SHINOBI 
SIMPSONS | (MM 
SIMPSONS HH (VM 
SPACE ACE H 


SPEAR OF DESTINY (V) 
STREET FIGHTER Il (VI (3) 


SUPER CONTRA 


3D CONSTRUCTION KIT (MM) 


3D IMAGERY 


Praia TOOLS KT 


ANY ANCL 
LA 


BANNER MANIA 


BANNER & SING MAKER 


PROFESSIONAL CAM-CAD 


SHOW PARTNER 
SKY GLOBE 


SLIDE CENEGATOR 


SMART WORKS 
TELAS GIF 
TELAS POX 


TELAS PORNÔ (MM 


THE DRAW 430 


TURBO DESIGNER 


VCA PHOTOS (V) 


EDUCATIVOS : 


CHEMICAL MODULAR MODELNG 


ITALIAN TEACHER 
JAPANESE 
ORBITER (1 
PC-MENCH (MM 
PC-GLOBE 4.0 
PC-HELP 


PROFESSOR PC 
TYPING TUTOR 3 






































































E AVENTURA: 
007 - LICENCE TO OLL (4) 

d009%6 ALTERED BEAST 
ARACHNOPHOBIA 












































ALEX SOFT INFORMÁTICA 


R. Pedro de Toledo, 967 /2 - São Paulo / SP - CEP 04039-032 (Próx. Est. Santa Cruz do Metrô 






edidos : por 
mero de discos dos Programas dese 


Catálo 

















































































































ados. 
Formas de Pagamento : 1-) CHEQUE NOMINA : 
Agência 2282 - 9, Conta 5.520 - 4 em nome de Alex Soft Entretenimento e Locação Ltda., enviando xerox do d 
o Eletrônico : Envie um disco 5 4 DD ou R$ 0,50 ,/ seu nome e endereço. Compras acima de B 






















Não es 





visa de adicionar ao pedido a taxa de Correio. 
: à Alex Soft Entret. e Locação Ltda. ou 2-) DE 





O, Sábado das 10: :00, 
























































































































dO0OS TARTARUGAS NINJA IE (Vi 02 HD [50512 Eiti ELLIOT NASCAR CHALLENGE 04DO | d0035 MIKE DITKA ULT. FOOTBALL (V) O1HD 
50501 TARTARUGAS NINJA Ilt 01 HD [50749 CAR & DRIVER (V) (3) 03 HD | d0089 NCAA BASKETBALL (V) 01 HO 
d0094 TEGEL'S MERCENARIES (V) 02 HD [50159 FERRARI FORMULA 1 02 DO [50939 OLIMPIADAS 92 (V) 02HD E s1334 
02 DO [150903 TERMINATOR 2029 (V) (3) 07 HO | 50239 FORD SIMULATOR 1 02 DO 050371 PGA TOUR GOLF (V) 02 DO [51247 
02 DO 850400 TERMINATOR 1(V) 02 HO [50114 GRAND PRIX CIRCUIT 02 DO 050035 SKATE OR DIE 02 DO [ s1348 
04 DD [50077 TERMINATOR UM 01 HD À d0043 GRAND PRIX UNLIMITED (V) 01 HD [50049 5KI OR DIE 02 DO [51398 
02 DO [50070 THE AMAZING SPIDER-MAN 02 DO [50669 HARD DRIVIN' 01 DO 850590 TV SPORTS BASKETBALL (M 01HD [31337 
01 HO 850286 THE GODFATHER M 05 HD À 50057 INDIANAPOLIS 500 02 DO [50438 WINTER GAMES 01 DD [51473 
01 HO [50741 THE JETSONS 01 DD | 40099 IRON MAN SUPER OFF ROAD 02 DO ESTRATÉGIA : 51354 
02 DO [50315 THE ROCKETEER (V) 03 HO [50319 MARIO ANDRETTI RACING (V) 05 DD : $1130 
01 HD 850283 THEXDER UM) 01 HD |] 50062 MOTOCROSS SUZUR 2500 01 HD [s0840 CARRIER AT WAR (M) (6) 02 HD [51470 
03 DD [E 50402 TITUS THE FOX M 01 HD [50079 PARIS - DAKAR RALLY 02 DD [50645 CNILIZATION M 02 HD [51392 
$0469 TONGUE OF THE FATMAN 02 HD [50138 POWER DRIFT 03 DD À doo?3 DINO WARS 02 HD ÀS1115 
$1112 ULTRA BOTS (M (3) 02 HD |] d0064 STREET ROAD II 01 HD ÚStI31 ELFISH M 04 HD [51355 
01 HD [50095 WINGS OF FURY 02 DD [50457 STUNT DRIVE 01 HD [50941 POPULOUS HM) 05 HD [51399 
02 DD | d0072 WOLFEINSTAIN 30 (M 03 HD [150041 STUNTS 01 HD [51172 SHADOW PRESIDENT (M 63) 03 HD [51243 
02 DD [150645 WRESTLEMANIA 02 DD À d0016 TEST DRIVE LV) 01 HD SIM ANT (V) 81325 
Ot HD [150626 X-MEN | 02 DO À 50044 THEGYOLIS À 02 DO S1326 
01 HD ; 50075 TURBO OUT RUN 1H 
01 HO ADVENTURES E RRG.S: " $0760 WORLD CIRCUIT M 03 HD 1163 
HO E 50531 ALONE IN THE DARK (V) HD E 
01 HD [50873 AMAZON (V) os HD | CASSINOS, TABULEIROS E FLIPPERS: 00527 THEATRE AT WAR 02 HO E S14s3 
08 DD [50887 BATMAN RETUTNS (4) 07 HD 8 50607 AMARHO SLIN POKER 02 DO PORNÔS E ERÓTICOS . $1712 
04 HD 851195 CARMEN S. DIEGO DE LUXE M 05 HD | $0098 BATTLE CHESS t 02 DO : 51200 
02 DD [5107] CHALLENGE ofthe FIVE REALMS (V) 10 HD [50050 BATTLE CHESS 1 03 DO [50356 ADULT GAMES 01 DO 051322 
06 DD [150586 CONQUEST OF CAMELOT 02 HD [50436 BILHAR 01 HD [50485 BUNNYS BEACH BALL M 01 HD [581121 
01 HD [50773 COUNT DOWN (W) 02 HD [5438 CHESS MANIAC 5 BILLION 1 (VH3 12 HD [50844 COBRA MISSION (M) 13) 05 HD [51363 
01 HD [50965 CURSE OF ENCHART M 07 HD | d00J8 CHESS MASTER 3000 (V) 01 HD [50458 HAIRLESS | M) 01 HD [51203 
01 HD [50562 DARK LAND M 4 HD [] d0091 CHESS MASTER for WINDOWS (V) 01 HD [504637 NIKI (1) 01 HD [51403 
12 DO [50701 DARKSEED M OS HD | 50598 CYRUS CHESS 3D 01 DO [50456 PENTHOUSE JIG SAW (V) 01DD [51319 
01 HD [50805 DRAKKHEN 03 HO [50925 HOYLES mM 02 HD [50436 POOR MANDY U(V) 01 HD E 51420 
01 DD 050739 DUNE | (Vi 02 HO [51189 JIMMY WHITE SNOOKER (M) 0100 050174 PORNO 04 DD [51154 
01 DD 050791 DUNE 1 M 04 HD À 51045. POKER for WINDOWS M 01 HD À 50819 SUPER PORNO (Ui 1 HD À 51204 
1 QUEST (V) HD [51114 SARGONS 1 . 
01 HD [50273 ELVIRA UM 03 HD [[ 50836 SOLITAIRES JOURNEY (M 63) 02 DO RACIOCÍNIO EM GERAL : 514666 
02 DO [50421 EYE OF BEHOLDER UI (V) 03 HD | do012 STRIP POKER UI (M) 01 HD [50220 ARKANOID 1 0100 [51193 
01 DD [50781 FIVEL AN AMERICAN TAIL (V) 08 HD [50753 TRISTAN (3) 01 HD 850008 BLOCK OUT 01 DO [51355 
08 DD [850920 FREE D.C 05 HD À 504t1 TRUMPH CASTLE IM 05 DO [50763 GRXM 01 HD 051269 
02 DD 8$1289 GALLEONS OF CLORY (Vi 01 HD |] 50030 VECAS CAMBLER 01 DD [50251 CD-MANM 02 DD 
O1 HD [51085 COBLINS (M) 03 HD ESPACIAIS : 50666 FACES... TRIS IN (MV) 03 DO 051323 
02 DD [50775 COBLINS UM 02 HD : 50276 NG SAW PUZZLE 02 DO 051427 
01DD [50336 HEART OF CHINA (V) 07 HD É sozos eumEt 01 DO [50059 LEMMINGS 03 DD [51306 
01 HD [1 d0092 HOOK (V) 02 HD [51177 GALACTK (MV 02 HD [51043 LEMMINGS II - THE TRIBES (9) 02 HD 031263 
01 DD | d0044 IND. JONES - FATE OF ATLANTIS () 06 HD [51028 INCA M (6 10 HD [50972 MARIO BROS 15 MISSING t (V) 05 HD 051391 
03 HD [50594 IND. JONES - LAST CRUSADE (MM) 04 HD [50715 KILOBLASTER (Vi 01 HD [50197 MICKEY MOUSE 12341) 03 DO E $1411 
01 DD [51051 INSPECTOR CADGET M 04 HD 050894 MANTIS: EXPER FIGHTER M) 09 HD [51043 PACK GAMES FOR WINDOWS 02 HD E51293 
07 DO [50948 KGB M 03 HO [51045 PLAN 9. FROM OUTER SPACE M) 03 HD SUPER TETRIS (V) $1379 
01 HD | d0022 KINGS QUEST V M 09 HD [] 50037 STAR CONTROL 02 00 TETRIS $1298 
07 HD [] 50930 KINGS QUEST VIM 09 HD [50856 STAR DEFENCE 01 DO 850824 THE HUMANS (V) O2HD E5i331 
01 HD [E 50706 LEGEND OF KYRANDIA (V) 04 HD [E 51096 STAR LEGIONS (V) 02 HD [151064 THE INCREDIBLE MACHINE M | O1HD [51245 
02 DO [50373 LEISURE SUIT LARRY V (V) 08 HD | d00?1 STELLAR 7 O1HD [50451 WELLTRIS 02 DO [51372 
05 DO [E S0115 100M 06 DD [[ 51055 STRIKE COMMANDER MM (3) 08 HD . 5141? 
02 DD [É $1104 LOSTIN LOS ANGELES (V) 05 HD [50573 TUNNELS OF ARMAGEDDON 02 DO SIMULADORES EM GERAL : $1250 
02 DD [É d0066 MARTIAN MEMORANDUM (V) 05 HD [50088 WING COMMANDER | (4) 03 HD [50012 688 ATTACK SUB 01DO [51327 
O1HD [50795 MICHT & MAGIC tl 03 HD [50373 WING COMMANDER Ui (V) 08 HD [50144 A 10 TANK KILLER t1 08 DD 051401 
01 HD [50986 MIGHT & MACIC IV 09 HD À S0826 X- WING (V) (3) 05 HD [É d0079 ACES OF THE PAGIEIC M (3) 03 HD [51340 
01 HD À 0035 MXED-UP FAIRY TALES (Ui 04 HD 50391 XENON d 03 DO À 51092 ANCIENT ART ofWARia SM MM (31 04 HD À 51363 
50608 QUEST HIM H Ri 0727 8:17 FIVING FORTNESS 5 HD [51269 
02 DD [51088 POWER MONGE M 03 HD ESPORTES E COMPETIÇÃO: 50092 BLUE MAX 08 DO [51239 
03 DO [50995 QUEST FOR GLORY IM OS HD [50217 IO0TH FRAME BOWLING 0100 [50252 F-14 TOM CAT 01 HD [51345 
02 DO E 50304 REX NEBULAR (V) (3) 10 HO [50200 40 BOXING 04 DD [50743 F-iS STRIKE EAGLE (M) (3) 06 HD [51124 
01 HO [50563 RISE OF THE DRAGON (M 07 HO [50947 4D SPORT TENNIS M 01 HD [50243 F-16 COMBAT PLOT 02 DD [51444 
05 HD [850233 ROBIN HOOD M 07 HD | d0082 ABC WIDE WORLD BOXING (V) O1HO [50189 F-II7A STEALTH FIGHTER 2.0) 06 DD [51424 
05 DO [850786 ROCCER RABBIT 11 (M) 05 HO [51011 AMÉRICA GLADATOR (M) 03 MO [50357 FALCON 3.0 () (3) OS HD [51273 
02 DD [51013 SHERLOCK HOLMES (MV) (3) 10 HO À do132 CALIFORNIA GAMES di 03 DO À d001) FICHTER BOMBER O1HD [51132 
02 DO [] 50267 STAR TREK - 25TH ANIVERSARY M 05 HO CAVEMAN HUCH-LYMPICS 04 DO | 50166 FLIGHT SIMULATOR 4.0 02 DD [51435 
01 HD 850716 STAR TREK V - FINAL FRONTIER (V) 05 DO DREAM TEAM $0841 GREAT NAVAL BATTLE (V) (3) 03 HO [51429 
01 DO [50345 THE CASTLE OF DR BEEN 02 HD |] 50068 FIENDISH FREDOYS 08 DO [50402 GUNSHIP 2000 (M) 03 HD 051333 
04 DD [50260 THE SECRET MONKEY ISLAND It) 06 HD | doos0 GREAT COURTS Hi (V) 01 HO [50615 LHX ATTACK CHOOPER 02 DO [51313 
02 DD [51102 TIME RIDERS AMERICAN HISTORY (V) 04 HD [50698 HARD BALL IH (M 03 HD [50821 Mi - TANK PLATOON 01HD [51344 
02 DO [51081 ULTIMA UNDERWORLD (V) 04 HD | 50636 INTERN. SOCCER CHALLENCE 02 DD [50426 MIG-29 FULCRUM M 02 DD 051422 
07 HD [50910 ULTIMA UNDERWORLD li (V) (3) OS HD [50556 JOE MONTANA FOOTBALL 02 HD [50858 PACIFIC ISLAND (V) 01 HD 051241 
02 HD [51000 VINCANCE OF ESCALIBUR M 02 HD [] 51066 JORDAN IN FLIGHT (V) 02 HD É d0033 RED BARON MV 02 HD U 51181 
2 DD 050315 WEEN THE PROPHECY MM 05 HD À 50054 KINCS OF THE BEACH 02 DO | 50365 SECRET WEAPONS LUFTWAFFE 03 HD 51216 
co ) SO108 LAKERS VS. CELTICS 02 DO 2) SILENT SERVICE 11 01 HD [51476 
RRIDAS, CARROS E MOTOS : $0039 LOW BLOW 03 DO [50881 STUNT ISLAND (V) (3) 06 HD [51472 
dOO93 1000 MICLIAS (Vi 02 HD [51063 MICROLEAGUE ACT. SOCCER (VM) 01HD F Si421 










EDITORES DE ETIQUETAS : 


BARCODE 

DISK LABEL GENERATOR 4.20 
DISK MANAGER LABELS 
ENVELOPE LASER 

ET-MASTER 


LABELS UNLIMITED 1 

MAIL MONSTER 

MR. LABEk 

PICTURE LABELS 2.1 

SIST DE ORCAN, DE DISCOS 


EDITORES DE TEXTO : 


ABILITY 
BATED 
BEST WORK 
FACIL 
LETTER WRITTER 
MICRO RECBTER 
FAZ CHECK-UP DO MICRO : 


BENCH MARK 5.0 
CHECNIT 


eseges 


Ss 


DEL 
PC-TESTES 
QU. PLUS - SISTEM PERFORMANCE 0 


ASTROLOGIA, ICHIN, TARÔT, ... : 


ASTRO 
ASTROLOGICAL FORTUNE 
ASTROLOCGY 94 
ASTROMÁTICA 

MACIAS 


DESPROTETORES DE JOGOS 


ADO44 DAP 1.1u147 
AO407 NEVER LOCK 93 
AO425 RAW COPY 


AUXILIARES DE COMUNICAÇÃO 


BIT FAX SR 3.9 
BIT FAX/MODEM 3.7 
BIT OOM DELUXE 5.3 


UICK-LAN 
TELEMATE 3.10 


TEL 3.12 
VIDEO TEXTO VIX 


S8886 S88896 


1 
1 
1 


ese ”“ eesseg 
858888 588 88888 


dd md dh us mt mt 
o ns ud 


vogseçgos0ss0s 
SBGOSSSSSSSS 
ceceerR 


g 


PROGs. MUSICAIS E SONOROS : 
BAND IN THE BOX (58 


MÚSICAS MOD 


MÚSICAS P/ BAND in the BOX (58) 
MÚSICAS P/V COMPOSER (58). 


MUSICIAN (58) 
PLAY YEAR (58) 


PYTHON MLSIC (SB) 
B) 


sCIX 
SCOPT 


SEQUENCER PLUS COLD (56) 
SONG WRICHT Ill (SB) 
TETRA COMPOSER (58) 
TRACK BLASTER 3.0 (SB 
VISUAL COMPOSER (SB) 
VISUAL PLAYER 2.0 


VOYETRA (58) 


WHACKER TRACKER 1.01 (58) 
COMPACTADORES : 


ARJ 2.21 


BACKIT 2.0 

DS BACKUP PLUS 
IMAGE 

LHARC 2.1 

PK ZIP 2.04 


BANCO DE DADOS EM GERAL 


AUDIO H 


CADASTRO DE PROGRAMAS 
DATA BASE PUBLISHER 


DATA BOSS 
DATA PLUS 


DBASE Wi - ROUTINES (Auxiliar) 
DB PROG (Audia) 


DISK BASE 


DISK CATALOGING PROGRAM 


EXPRESS CHECK 
PC-DEAL 


PRIVATE BOOKKEPEER 
PROFESSIONAL FILES 


PRONTO 2.0 
SOFT MIDI 











AGENDAS E CALENDÁRIOS : 


ACTIVE LIFE 01 DO 
AGENDA 1.2 0! DD 
AGÊNDA ELETRÔNICA 0t DD 
AGENDA TELEFÔNICA 01 DD 
AMPLE NOTICE 01 DD 


AUXILIARES LOTÉRICOS: 


LOTTO FEVER 01DD 
LOTTO PROPRET 01 DD 
POLHOT 91 DO 


PROGRAMAS ANTI-VÍRUS : 


SCAN ANTIVIRUS V.9.17 v106 01 DO 
TBAY 6.08 01 DD 
VIRUS SAFE 4.07 91 DD 


COPIADORES : 


DISK DUPE 4.01 01 DO 
VGA COPY PRO M O1HD 
XENOCOPY 01 DD 


FORMATADORES ESPECIAIS : 


01 HD 


ADI4S 500 MN 


AMME EASY FORMAT 
FO-READ 1.88 
FORMAT & COPY MASTER 91 DD 
MAX FORMAT Dt DD 


AUXILIARES P/ ESCRITÓRIO : 


AS-EASY-AS (Planilha 02 DD 
BEL POWER PLUS 
CHIX 


CONTROLE DE ESTOQUE 
EASY INVENTORY 
ESTATISTKC CONSULT 
EXTOK 2.09 

GENESE 2.1 


FERRAMENTAS PARA O DOS : 


ATSLOW : 01 DO 
DIGONARIO ELETRÔNICO 

DRIMERCHK & ALIGN 

FRANK 387 

FOCOS 

CLANCE DOS SHELL 

HYPER DISK 


MOUSE TOOLS 
RECONFIG 


Gods o2o a 
ot md mt mt md 


ESBBSBSSSSBES SSESSE 





1-> Na compra de cada 10 Disquetes você ganha mais 1 Disquete Gravado ; 


2-> Compras Acima de 30 Disquetes HD ou valor e 
3-> Se nesta edição da revista houver outra | 


oja em SP que venda + barato, 





PÓSITO EM CONTA: Banco Bradesco, 
gi junto ao pedido. 
IS 


SAMA K E ER (6) = Ea 




















cos o catálogo é grátis. 


- SOUND BLASTEF 
) = PC-XT 


ÚLTIMAS NOVIDADES : 






















































ACES OVER EUROPE (4) (3) 03 HD 
AIR WARRIOR (V) (3) 03 HD 
ALONE IN THE DARK N (4) 0h 05 HD 
BWING M 0) 01 HD 
BLADE OF DESTINY (V) 6) 03 HD 
BLAKE STONE-ALIENS oÉ COLD (V) 02 HD 
BODY BLOW (103) 01 HD 
CARMEN SAN DIEGO EN SPACE (V) Q4HD 












CORRIDOR 7 ALIEN INVASION (VI 0102 HD 
DAUCHTER OF SERPENT (V) (3) 06 HD 



























DRACONS lLAIR 03 HD 
DOOM (V) (3) 06 HD 
EIGHT BALL DELUXE (4) (3) 02 HD 
EPIC 3)M 06 HD 
EPIC PINBALL 1 (VI (3) o1HD 
EPIC PINBALL 2 (V) (3) c1HOD 
EYE OF BEHOLDER IM 04 HD 
FLASH BACK (V) 03 HD 
FREDDY FARKAS (V) 06 HD 
CABRHL KNICHT (3 (3) n Ho 
HOME ALONE 4 MM 02HD 
HONG KONG MAHJONG PRO (V) 02HD 
INDY CAR RACING (4) (031 03 HO 
JUMP ET MM 6 03 HD 
JURASSIC PARK 635 M 04 HD 
KEEN'S LA BIRINT (V) 63) 01HD 
LEGEND OF KYRANDIA UM 03) 85 HD 


LOST SECRET of RAINFOREST (V) 08 HO 
LOTUS SPIRIT TURBO CHALL. 01 HD 



















































MAGIC CANDLE Nº (4) 3 HD 
MAJOR STRIKE MM 02 HD 
MANIAC MANSION H-DAY TENTIV) 07 HD 
MASTER OF ORION (V) (3) 04H0 
MONOPOLY FOR WINDOWS 02 HD 
MORTAL KOMBAT (41 831 03 HD 
NIGES MANSELL [Vi 02 HD 
OSCAR (4) 

PINBALL DREAM (VI (3) 01 HO 
PINBALL FANTASIES (Vi (3) 02 HD 
PINBALL FOR WINDOWS (4) (3) 02 HD 
PIRATES GOLD (V) 63) o HD 
PUSH OVER M 01HD 
RALLY (MI 03) 06 HD 
RETURN of the PHANTON (Vi (3) 05 HD 
RETURN TO ZORK (V) 03) 12H0 
RING WORLD (v) (3) o Ho 
ROBOCOP 3D MM (3h 04 HD 
ROME (V) 02HD 
SAM & MAX - HIT the ROAD (V) 13) 07 HO 
SANGO FIGHTER (M 03) 03 HD 
SHADOW OF THE COMETS (VW) 3)  05HD 
SAVER BALL (VI 63) 01HD 
SIM CITY 2000 (VI 13) 02 HD 
SIM FARM (V) 02 H0 
SPACE QUEST V (3) (V) 05 HD 
SPACE HULK (V) 04HD 
SPECIAL FORCES (VI 3) 02 HD 
SPEED RACER (MM 6) 93 HO 
SPEEL CASTING SPRING BREAK MM 04HD 


STAR TREK - JUDG. RITES (V) (3) W HD 
STREET FIGHTER NICAPOOMMVI3) 03 HO 





















SYNDICATE (4) (3) 05 HD 
TASK FORCE 1942 06 HD 
TERMINATOR RAMPAGE (V) (3) 06 HD 
THE DARK HALE M 04 HD 
THE FIRST SAMURAI (M 02HD 
THE LEGACY REALM of TERROR (V) 06 HD 
THE LOST VIKINGS (MI (3) 01 HD 
THE FIGHTER M 03) 02 HD 
TORNADO (V) (3) 03 HO 
WAX WORKS (1 04 HD 
WAYNES WORLD (V) 03 HO 
WING COMMANDER PRIVATEER M 09 HD 


WOLF 3D - 60 NEW FLOOR (V) 01 HO 
ZOOL M 01 HO 





a EGA 


58) = SOUND BLASTER 
m VGA - PC-XT 


MUSICS FOR WINDOWS (SB) 
no FIRE FINDER 


MORE DOS 
PASSPORT MUSIC (58) 
POWER TOOLS 
RF FLOW 
SOUND FOR WINDOWS 
SOUND PRO FOR WINDOWS (58) 
SOUND TOOL 2.6 SB 
SOUNDS WAVE 


TIME FRAM 

THE DRUNS 4.0 68 
FRAX 2.19 (58) 

WAVE AFTER WAVE (58) 


uivalente, você para com 2 Cheques (1 no Ato + 1 para 15 Dias) 
ós cobrimos a Oferta !!! 


MAD o PRA gm parir jam or a a ria Cem gt o cseç 


DRA AS e A EA a ca cp mp eitaç mE A 








PROGRAMA 





Mantenha em segurança seus arquivos DBF 





Copia de Segurança para 
arquivos .DBF e .DBI 


Valmir Menegaz de Souza 


O BK se compõe dos recursos de copia e restauração de 
arquivos de dados 
para sistemas escritos em Clipper ou Dbase. Originalmente ele 
foi compilado 
com o Clipper Summer 87, compatível portanto com versões 
superiores (5.0,etc). 

Se for compilado com versões superiores ao Summer 8/, 
deve-se acrescentar uma função que substitua a função 
STRZERO() do clipper Summer, visto que na versão 5.x por 
exemplo, essa função não foi incluída na sua biblioteca. Um 
exemplo pratico dessa função poderia ser escrita desse 
modo: 

FUNCTION STRZERO(wmum,vnd) 

LOCAL wnumi 
wmumi := ALLTRIM((STR(wmum,wvnd)) 
DO WHILE .T. 

IF LEN(mumi)==ynd 

EXIT 

ENDIF 

vnumi = '0'+ynumi 
ENDDO 
RETURN(vnumi) 


Observação: caso você tenha que usála, inclua no 
arquivo 'BK4.PRG' 


DESCRIÇÃO DOS ARQUIVOS FONTES 


BK.PRG - Arquivo do menu principal. 

BK1.PRG - Arquivo que gera as copias dos arquivos nos 
disquetes. 

BK2.PRG - Arquivo que restaura os arquivos do disquete para 
o disco. 

BK3.PRG - Arquivo para seleção do drive de trabalho (A ou 
B). 

BK4.PRG - Arquivo auxiliar que contem funções usadas pelo 
programa. 
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Micro: IBM XT/AT 
Memória: 640 Kbytes 
Vídeo: CGA/VGA 
Linguagem: Clipper 
Requisitos: Nenhum 
RED == A 


OPERAÇÃO DO PROGRAMA 


O programa em si é simples e fácil de operar. As três 
opções do menu podem ser definidas assim: 


BACKUP - Este módulo realiza copias dos arquivos do disco 
rígido para os disquetes. Antes de iniciar a copia, são 
eliminados todos os arquivos do disquete para que os novos 
arquivos possam ser gravados. O programa não leva em 
conta os subdiretórios que porventura estejam presentes no 
disquete, isto é, serão eliminados apenas os arquivos do 
diretório raiz. 


RESTAURA - Restaura os arquivos previamente gravados no 
módulo BACKUP”. 


DRIVE - permite selecionar entre os drives A e B para a 
operação com disquetes. Ao entrar no programa, o drive À 
é o default. 


O BK como um módulo de um sistema completo de banco 
de dados: 


Para utilizar os arquivos fontes com um utilitário de 
um sistema maior 
eis as modificações a fazer: 


4. Pelo fato do programa já estar com algum tipo de 
arquivo aberto, é nessário incluir o comando 'CLOSE ALL" no 
inicio dos arquivos fontes BK1.PRG' e BK2.PRG', para 
fechar esses arquivos , pois poderia surgir problemas na 
hora de gerar o backup. 

2. Ao sair do módulo BK' você terá que abrir novamente 
os arquivos que você fechou. Importante: se você utilizou o 
módulo Restaura”, certamente os arquivos de índice do 
sistema não estarão atualizados, visto que foi gravado um 
copia dos arquivos que poderá ser idêntica ou não aos 
arquivos que estavam gravados anteriormente. Portanto e 
preferível que toda vez que se fizer uma restauração, se 
reindexe os arquivos de dados do sistema. 


BK.PRG 


* Programa BK - Backup D/ Asus «DBF e 
- DBT 
Desenvolvimento: Valmir menegaz de Souza 





Florianopolis - SC 
Arquivo: BK.PRG - 


Menu principal 


10/04/94 


te. dd» a 


CLEAR 

SET COLOR TO 

SET CURSOR ON 

SET DATE BRITISH 
SET SCOREBOARD OFF 
SET BELL OFF 

SET PROCEDURE TO BK4 


* define tipo de variaveis * 


PRIVATE 

arquivosi, arquivos2, Hk memi, drive, drivel, dat, Hk, cabdados, início 
PRIVATE 

flagi, time hk, cencela, repete, erro, fim, arq dit, fim dit, last disk 
PRIVATE 

flag, gravado, disco, tam, grv arq, disquete, tot arq,nm arq, copia 
PRIVATE 

ind arq, arq des,arq fm, disk free, £ size, destino, fonte, fim dit 
PRIVATE 

nm arql, arg frag, bloc, buffer, xr: bytes,w Jytes, £f, Cp army, cat, step 
PRIVATE 

flag, sn, passo, dest cab, texto, arqy cab, tam cab,w cab,n arq, h, masc 
PRIVATE 

col, per, cor1,x0cr1, xccr2, num fra, disk ctl,dt. tl,hr ctl, fra, ag at 
PRIVATE 

wirive, grv prim, vetor 1, vetor2, fra ctl1, fra ctl,tam ctl, last ctl 
PRIVATE arq ctl,mpi,mp2 


* define cores da tela * 
xcorl = 'W/B' 
xcor2 = 'R/G' 


* define drive A como drive inicial * 
bk meml = 0 


corl = SETCOLOR(xcor1) 


G& 5,9 CLEAR TO 21,79 

G 5,9 TO 21,79 

e 19,10 TO 19,78 

e 7,10 TO 7,78 

e 21,24 SAY “BK - Backup p/ arquivos .DBF e 
«e DBT*” 

Q 6,60 SAY “Drive: A' 


mpi = 1 


DO WHILE .T. 
6 6,11 PROMPT “Backup' 
& 6,COL()+5 PROMPT “Restaura” 
& 6, COL()+5 PROMPT “Drive' 
MENU TO mpi 


DO CASE 
CASE mpl = 0 
EXIT 
CASE mpl = 1 
DO BK1 


CASE mpl = 2 





DO BR2 . 
CASE mpi = 3 
DO BK3 
ENDCASE 
SETCOLOR (xcor1) 
e 8,10 CLEAR TO 18,78 
ENDDO 
SETCOLOR (cori) 
CLEAR 


BK I.PRG 


ASA SALAAAZIZASIAZAAAZIAIAAAAAHADZIAXHADÃAR) 


* Programa BK - Backup p/ Arquivos «DBF e 
«DBT 
Desenvolvimento: Valmir menegaz de Souza 


Florianopolis - sc 


Modulo que grava os 
+ 


rquivos no disquete 


+ 

+ 

+ 

4 

* 

* 

* Arquivo: BK1.PRG 
a 

* 

* 

* 10/04/94 
+ 

* 


LASAR AASAZARASARAZADADAZARAZARR) 


SET CURSOR OFF 
SET INTENSITY OFF 
SET CENTURY OFF 


ADIR('*.DBF') 
ADIR('*.DBT') 


arquivosl1 
arquivos2 


DECLARE arr dir[arquivos1] 
DECLARE arr drl[arquivos2] 
DECLARE arr tam[arquivos1)] 
DECLARE arr tmi [arquivos2] 


ADIR('*.DBF',arr dir,arr tam) 
ADIR('*.DBT',arr dri,arr tml) 


IF bk memi = 0 
drive “As! 
drivel 'A! 

ELSE 
drive “B:' 
drivel 'B' 

ENDIF 


dat bk 
cabdados 
SUBSTR (dat bXk,1,2)+SUBSTR (dat bk,4,2)+SUBSTR 
(dat bk,7,2) 

inicio = .T. 

£flagi = .F. 
time bk = time() 

cabdados 

=cabdados+SUBSTR (time bk,1, 2) +SUBSTR (time Dk, 4,2)+ 
SUBSTR (time bk,7,2) 


DTOC (date()) 


DO BK DADOS 


SET INTENSITY ON 
SET CURSOR ON 
CLOSE ALL 


ERR BR DADOS 
* 


* Rotina principal do Backup sao disco 
Tigido p/ disquete) 


* 
STORE .F. TO 


cancela, repete, erro, fim, arq dbt, fim dbt, last disk, flag 
STORE 0 TO gravado, disco, tam, grv arq 
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num arq «a ADIR('*.DBF') 

num arqgis ADIR('*.DBT') 

tot arq = num arq + num arqi 
STORE 1 TO copia, ind arq 


IF num arq=0 
MENS ('Nao ha arquivos .DBF p/ fazer 
backup!'”) 
RETURN 
ENDIF 


DO GET DISK 

IF erro .OR. cancela 
MENS ('Backup cancelado! Tecle algo..”') 
RETURN 

ENDIF 


e 12,10 SAY 'Copiando arquivo —> 
DO WHILE .?. 


DO OPEN FON 
IF cancela 
EXIT 

ENDIF 


DO WHILE .T. 
e 12,34 SAY SPACE(15) 
IF .NOT. arq dbt 
QG 12,34 SAY arr dir[copia)] 
ELSE 
e 12, 34 SAY arr drilcopia) 
ENDIF 
arq des = drive+rarq fon 


DO OPEN DES 
IF cancela 

EXIT 
ENDIF 


IF tam > disk free 
flag = ot. 
f size = disk free 
DO GRAVA 
IF cancela 
EXIT 
ENDIF 
tam = tam - grv arq 
FCLOSE (destino) 
DO GET DISK 
IF erro .OR. cancela 
EXIT 
ENDIF 
G 12,10 SAY “Copiando arquivo —> 
ELSE 
f size = tam 
disk free = disk free - tam 
DO GRAVA 
IF cancela 
EXIT 
ENDIF 
FCLOSE (destino) 
FCLOSE (fonte) 
copia = copia + 1 
IF copia > num arq 
IF arq dbt 
fim abt = 2. 
EXIT 
ENDIF 
IF num arqls=0 
fim = .T. 
EXIT 
ENDIF 
EXIT 
ENDIF 
DO OPEN FON 
IF cancela 
EXIT 
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4 


IP erro .OR. fim .OR. cancela 
EXIT 

ENDIF 

IF fim dbt 

EXIT 

ENDIF 

arq dbt = .F. 

num arq = ADIR('*.DBT') 
IF num arq = 0 

EXIT 
ENDIF 

arq dbt = .T. 

copia = 1 

ENDDO 


IF cancela .OR. erro 
MENS ('Backup cancelado! Tecle algo..') 
RETURN 

ENDIF 

last disk = .T. 

DO GRV CAB 

NENS(' Backup Concluido. Tecle algo..”') 

RETURN 


PROCEDURE OPEN. FON 
* 
* Abre arquivos do disco rAgado a serem 
gravados nos disquetes 
* 
IF .NOT. arq dbt 
arq fon = arr dir[copia) 
ELSE 
arq fon = arr dri[copia) 
ENDIF 
arq frag = arq fon 
fonte = FOPEN(arq fon,2) 
IF fonte = -1 
DO ALERTA 
RETURN 
ENDIF 
tam = FSEEK(fonte,0,2) 
FSEEK (fonte,0,0) 
RETURN 





* 





PROCEDURE OPEN DES 
+ * 


* Abre arquivos no disquete p/ gravacao 





* 


* + 


DO WHILE .T. 
destino = FCREATE (arq des,0) 
IF destino = -1 

DO ALERTA 
IF repete 
repete = .F. 
LOOP 
ENDIF 
ENDIF 
EXIT 
ENDDO 
RETURN 





PROCEDURE GRAVA 
+ 
* Rotina que grava um arquivo do disco 
tigideo p/ o disquete 


* 





* 





STORE .F. TO cancela,repete 
grv arq = 0 


DO WHILE .T. 
bloc = 4096 
buffer = SPACE(bloc) 


IF f size<4096 
bloc = f size 


buffer = SPACE(bloc) 
ENDIF 


DO WHILE .fT. 
r bytes = 
FREAD (fonte, Gbuffer,bloc) 
IF r bytes != bloc 
DO ALERTA 
IF repete 
repete = .F. 
LOOP 
ENDIF 
ENDIF 
EXIT 
ENDDO 
IF cancela 
RETURN 
ENDIF 


DO WHILE .T. 
w bytes = 
FWRITE (destino, buffer, bloc) 
IF w bytes != bloc 
DO ALERTA 


IF repete 


repete = .F. 
LOOP 
ENDIF 
ENDIF 
IF cancela 
RETURN 
ENDIF 
EXIT 
ENDDO 


f size f size - 4096 
gravado gravado + w bytes 
grv arq grv arq + w bytes 
Q 15,10 say 'Gravado ate 
& 15,COL() SAY gravado PICT “QE 
9,999,999" 
DO BARRA 
IP f size<l 
EXIT 
ENDIF 
ENDDO 
RETURN 


PROCEDURE GET DISK 
+ 


* Rotina que pede os disquetes p/ gravacao 


+ * 


r = SPACE(1) 
STORE 0 TO cop arq, gravado, disk free, cont 


IF .NOT. inicio 
DO GRV CAB 

ENDIF 

inicio Ré 

gtop .F. 


IF flag 
flagi = .T. 
flag = .F 

ENDIF 


disco = disco + 1 
GQ 08,10 CLEAR TO 15,78 
TONE (1000,1) 


SET CURSOR ON 
e 8,10 SAY “Insira o disquete 
' +STRZERO (disco,2)+' no Drive '+drivel 
G 9,10 SAY 'Atencao! Todos os arquivos da 


unidade '+drivel+' serao” 
& 10,10 SAY “apagados... [ESC] cancela.' 
INKEY (0) 
SET CURSOR OFF 
IF LASTREY ()=27 
cancela = .T. 
RETURN 
ENDIF 


DO APAGA 
IF cancela 
RETURN 

ENDIF 


DO WHILE .T. 
disk free = DISKSPACE(bk meml+1) 
IF disk free < 1 
sn = CONFIRMA('Erro de leitura no drive 
'+drivel+' .Repetir (9S/N)') 
IF gn = 'S' 
LOOP 
ENDIF 
cancela = .T. 
ENDIF 
EXIT 
ENDDO 








— 
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PPOGFANADORES 2 || PROMOÇÃO |) “eira modem 
pas a E 3 Enio dg 

Temos os melhores utilitários para auxiliá-lo 

iso rd S || compra SUPERIORES 





fontes, utiitários pera listagem de fontes, e 
as mais incríveis bibliotecas com novos e 
fantásticos comandos e finções para 
Clipper 5.01 e 5.2, inclusive com funções 
que utilizam modo gráfico, simulando 
perfeitamerte o ambiente WINDOWS. 


R$ 50,00 







+ 24 HORAS NO AR 
+ 2 GIGABYTES DE PROGRAMAS 
* JOGOS E APLICATIVOS 
* WINDOWS E DOS 
* 1200 .... 14400 bps 
* TAXA P/ INCRIÇÃO 

MENSAL 7 URV 





1.500 Titulo de Software, 
Jogos e Aplicativos para 
PC com lançamento 
simultâneo com USA e 
EUROPA 






N ESA 
* Acesso a InterNet 
* 04 CD-ROM c/ milhares de 
softwares 
* Cadastramento ON LINE 
* 14.400 BPS 
* Horário 24 horas 
* Novo telefone: 
(011) 871-2859 





Para receber sm disquete com arquivos NG 
(Help Ou Lino) os documentação de vários 
bibliotecas e assim avaliar suas finalidades, 
envio 2 URV 
CHEQUE NOMINAL À 
NADIA SOUZA 








Qualquer usuário poderá conectar 
na Classic Soft BBS, para conhecer 
nosso sistema e tera Tista dos 

softffares da BBS e catálogo 
NTA 


eletrônico. 
Caixa Posted 6015 


FORTALEZA - CFP 60451-970 INFORMAÇÕES: 
TEL/FAX:(011)875-4644 











Peça já seu catalogo 
grátis, por telefone ou 
FAX: (081) 361-2434 
Recife 


paro: 












IF cancela 
erro = .T. 
RETURN 

ENDIF 


IF .NOT. arq dbt 
FOR f = ind arq TO num arq 
cop arq = cop arq + arr tam[f] 


cont = cont + 1 
IF disk free < (cop arq+(900*cont)) 
stop = .«T. 
EXIT 
ENDIF 
NEXT 


IF num arql>0 .AND. .NOT. stop 
FOR £f = 1 TO num arql 
cop arq = cop arq + arr tml[f] 


cont = cont + 12 
IF disk free < (cop arq+(900*cont)) 
EXIT 
ENDIF 
NEXT 
ENDIF 


ELSE 
FOR £f = ind arq TO num arqil 
cop arq = cop arq + arr tml[f] 
cont = cont + 2 
IF disk free < (cop arq+(900*cont)) 
EXIT 
ENDIF 
NEXT 
ENDIF 


disk free = DISKSPACE(bk meml+1) - 
(cont*900) - 512 


e 8,10 CLEAR TO 18,78 

e 8,10 SAY 'Disco: '+STRZERO(disco,2) 
e 8,30 SAY 'Gravando..... é 

e 10,10 SAY REPLIC(CHR(176),51) 
passo = disk free/50 


e 13,10 SAY 'Espaco total do 
disco......s! 

G 13,col() SAY DISKSPACE(bk meml+1) PICT 
“GE 9,999,999”7 

e 14,10 SAY 'Espaco disponivel p/ 
Backup: * 

e 14, col() SAY disk free pict “CE 
9,999,999" 


RETURN 


PROCEDURE GRV CAB 


* * 


* Rotina que grava o arquivo de controle 
em cada disquete hd 
* 
arq cab a 
drive+' CONTROL. ' +STRZERO (disco,3) 





* 





DO WHILE .T. 
dest cab = FCREATE(arq cab,0) 
IF dest cab = -1 
DO ALERTA 
IF repete 
repete = .F. 
LOOP 
ENDIF 
ENDIF 
EXIT 
ENDDO 
IF cancela 
RETURN 
ENDIF 


texto = STRZERO(disco,2)+cabdados 
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IFP flag 

texto = texto + '1' 
ELSE 

texto = texto + '*0'7 
ENDIF 


IF flagi 
texto 
flagi 

ELSE 
texto 

ENDIF 


texto + '1' 
.F. 


texto + “07 


IF last disk 

texto = texto + “1' 
ELSE 

texto = texto + “0 
ENDIF 


texto = texto + arq fon 
tam cab = LEN(texto) 


DO WHILE .T. 
w cab = FWRITE (dest cab, texto, tam cab) 


IF w cab<>tam cab 
DO ALERTA 
IF repete 
repete = .F. 
LOOP 
ENDIF 
ENDIF 
EXIT 
ENDDO 
IF cancela 
RETURN 
ENDIF 
FCLOSE (dest cab) 
RETURN 


PROCEDURE APAGA 


* * 


* Rotina que apaga os dados disquete Dp/ 
posterior gravacao " 
* 
cancela = .F. 
DO WHILE .T. 
PRIVATE arq [ADIR(drive+'*.*')] 
DECLARE arq [ADIR(drive+'*.*')] 
ADIR(drive+'*.*',arq) 
n arq = ADIR(drive+'*.*') 





* 





IF n arq=0 
arqteste = FCREATE(drive+'teste.000',0) 
IF argteste = -1 


gn = CONFIRMA('Atencao! Problemas c/ o 
Drive ou disquete. Repetir (S/N)') 
IF sn = 'S' 
LOOP 
ENDIF 
cancela = .T. 
ELSE 
FCLOSE (arqteste) 
DELE FILE &(drive+'teste.000') 
ENDIF 
ENDIF 
EXIT 
ENDDO 
IF cancela 
RETURN 
ENDIF 


e 11,10 SAY 'Aguarde. Apagando arquivos da 
unidade '+drivel+'.....” 
FOR h = 1 TOnarq 
masc = drive+arq[h] 
DELE FILE &magsc 
NEXT | 
e 11,10 SAY * 


CO cr Atas NDA aaa 
eo o Nim a 


a 
at 


Ea 


Mstnio 


GLOBALSOPT INFORMATICA Tel: (011) 214-0289 


R. Barão de Itapetininga, 297 - sala 44 - São Paulo - SP CEP 01042-001 (a 5 mts. do metrô República 


= MZ. Preços (Discosincluidos): HD 1.8URV- DD 1.4URV 
|» Garantia : 60 dias contra vírus e defeitos.Taxa de correio a cada 15 discos: 2.0 URV 


PROMOÇÃO DO MÉS:Concorraa 1 Placa de Sommais4 Superprêmios 
A cada 10 cópias com disco, ganhe uma à sua escolha;a cada 50 cópias, ganhe 09 


Cem. 


h 

â - 

» 

NOME DO JOGO QD. CÓD. NOME DO JOGO = 

AÇÃO E AVENTURA | suma ado (ss xr eram musa q 

: Ultimas Novidades JOGOS EM HD JOMIZ SAR TREK V 03 DD Es axas 

; 007 JAMES BOND 06 DD 

ú 0587 THE IMORTAL 2 DD 30577 WORLD CHAMPION SOCCER 

à 1000 MIGLIAS HD AMRGH! + 2 DD J0530 THE SECRET OP MONKEY ISLAND 108 DD Joss WORLD GAMES 

j ACES OVER EJROPS HD ALONE IN THE DARK HD ALF O R. TEDOEO o 00 J0594 WRATH OF THE DEMON 06 DD 30582 NORLO TOUR COUF 

E AIR DJEL HD AMAZON HD ALTERED aRAST 2 DO 

? condi o. o na = ARACINOPHOBIA RABO ESTRATÉGIA 

e E aro aan : sro ca pp CARROS, MOTOS 

E) BATILE CRYISER 3000 WD BATMAN RETURNS HD » o2 9 

É AXE OF RANGE DO 

f BLAKE FITNE HD BEAT IN THE HOME HD E = DO 30025 ATABONE RANGER a 
j BODY BLOWS HD CAR é DAIVER HD BACK DE PVIURE QX4 OFF ROAD RACING di DD JOLIA CENTURION 03 
j CHESS MASTER 4000 (WIN) HD CARRIKAS AT WAR ND BMX TO THE PUIVRE 111 os DD AILL ELLIOT NASCAR GP o DD J0LS4  DINO NAAS 0? 
É COMANCHE MISEICNS 2 HD Oss ÚN HD BAD DUDES 02 DO BUICK DIMENSIONS 02 DD 30388 POPULOVS 2 
Í DISCOVRAIES CP THE DEEP HD CHALLENGE OP THE FIVE REALNS HD BAÍMAN THE MOVIE 04 DD GADO NAT o1 DD TOMAS EDQUT 

j mãos or Ad = CIVILIZATIGN : ado os Es e dp H 61 PD A a 
| P85 CENARIOS NEN YORK HD COBRA MISSTAN 05 HD Ru Es DRATH TRACK 02 DD PORNOS E ERÓTICOS 
4 F&5 CENARIOS PARIS HD COMANCHE 03 HD SAPONE Sapo FERRARI P=1 o2 DO 
é PES CHEN. SAN FRANCISCO HD COMMANDEA KEEN V 01 HD CONAN THE CIMMERIAN 07 DD PORD SIMULATOR 1 01 DO J0018 AUT CAES ol 
, GABRIEL NIGNT HD COMMANDER XEBN VI o1 HD CRIME WAVE 08 DD FORD SDMRATOR II 02 DD NO ADM 01 
E JURASEIC PARK HD CRERPERS o Hp DAVID WOLF 06 DD CRAND PRIX CIRCVIT o DD J0084  BXA o 
É HD CURSE OF ENCHANTRESS o? Hp DEATH EMOAD 01 DD GRAND PRIX UNLIMITED 04 DO H0226  BIWY'S BEACH BALL ot 
À HD DARK SEED 05 ND DIX TRE 06 DD HARD I 01 DD J0122 CINE PORNO o! 
: D DARKLANDS 13 ND DOUBLE DAN TI 03 DD SREME Pe HO199 CRISTIANA CE CLIVEIRA (v) o1 
3 HD DAY OF THE TENTACLE 07 WD a e 15-00 ta DIA o H0219 DL VIEM +30 ANIXACOES (V) 04 
: HD DAUGHTER OP THE SERPENTS 96 HD DRAGON" (AIR HARLEY DAVIDSON o2 DD J0177 RAST ECA vEST o 
HD DRAGON S LAIA Iv os WD DRAGON'S LAR III 12 DD INCTANAPOLIS 500 02 DO JOLBA EROTIC MIM 1 
: HD 04 HD GANTET TI 92 DD IRON MAN SUPER OFF ROAD 02 DD ENSAIOS DA PLAYBOY (V) o 
é HD 05 HD CHOST HUSTERS II da DD LÉ PETIGE KAYA 02 DD HAIRLESS! oq 
i HD 04 HD GOLDEN AXE 02 00 LOMBARD RALLY 02 DD PENTHOUSE JIGSAM PUZZLE(V) 

t HD 4 HD HORROR ZONBIE 03 DD MARIO ANDRETTI RACING 93 DD stc a 
E HD 06 HD 01 DD NET o2 
' pat 05 WD HEAVY METAL D NEM! GP MOTOCICLES 0 DD 

Í pe pata ] PORNO SIDRY oq 
: "D 03 WD esc CPF SHORE WARRIOR 01 pp SDUM 1 01 
: HD 06 WD INDIANA JONES LAST CRUZADE 02 DD |. ar am 02 DD SUPER PORNO DE 02 
; HD 03 HD INDIANA JONES TI 01 DD RALLY PARIS DAKAR 02 00 MRIP RR DI () 9 
3 HD o2 HD IKARI MAARIORS o DD PIT ge o DO TRAS EROIICAS *.CIP  (v) né 

ND GREAT NAVAL BATILES 03 HD KARATEXA Do KB ET IE 02 00 TELAS EROTICAS *.BMP (NINDONS)0S 

: HD GUN SHIP 2000 IMAND & ICE 02 HD ARNO 02 DO ovas REDE de do TELA EROTICA 01 
3 HD HEIOALL 06 HD LIFE AD EH 1 o2 dh NGOLDIE FOR NINDONS o1 
4 HD HOME ALONE 2 o2 DE EITO PONS 01 DD 

à CNSLTE HUMANS oz SIREET ROAD 1 03 DD E 

A INA 10 1 DD SWEET ROAD TI 04 DD RACIOCÍNIO 

k) INSPECTOR GADCET ou 02 od 


STUNT DRIVER 04 DD 
0% DO BANTS 04 DD ARAMOID 13 
Pano SUPER HANG ON o DD 
aus TES DRIE 1 01 DD 
NIGHT STPT 03 pD RR CE ST 
c2 DD TEST DROVE HI 03 DD 
Gr, WELL 03 BD J0520 THE crees 02 DD 


GIVER 02 pD J0549 TURBO OUT RN 03 DD 
OPERATION NOLF 02 DD sos em: PA 


MPR BOY 01 DD 


PALA KICK BOXER s4 DD CARTAS E CASSINOS 


PIRATES COF BARBARY o DD 


PLATOON o DO JOO6? BATTLE CHESS 02 DD 
ME MESTORIC sa Do ENTER GES 03 DD 
PRINCE OP DERA 1 02 DD ELLA 3D 01 DO SUPER TEIRIS (V) 


PAMeO III 02 DD CHESS MASTER 2000 01 DO tETRLS 
RAM PCUTE o DO CHESS MASTER 2100 03 pD TETRIS FOR NENDONS 


PASTAS SAGA 02 DO Cius oras 91 DD ras 
RENEGADE 0a DD DRAM POKER 01 DD 


ROAD MUNNER q DD NWLES HW 02 DD SIMULADORES 


ROBOCOP 1 01 DO som sv 03 DD 
SOLITRIAE JOURNEY 02 DO 688 ANIKX SB D 


ADVENTURES E R.P.G. ais na o Arlo “DOR aU 


A-TRAIM 
J0106 CARMEM MANDIBOO IN EUROPE 01 DD bai AFTER BRNER II 


30107 CARMEN RANDIHGO IN USA 01 00 AIR COMBAT SIMULATOR 
30108 CARMEN SANOIHGO IN TIME 03 DO ESPACIAIS ALR TRAPFIC CONTROL 
JOJO) CARMEN SANDINCO IN WORLD 01 DD e ne 
J0L26 CAANEL B' QUEM 10 ps Sam 
30134 CONQUEST OF CAKELOT 10 DD P-14 TM AT 
Jol140 DEPENDER CF THE CRONN o DD 15 SRI BA 1 
J0166 DRAGONS STRICK 04 DD PIS SIRER PGR DU 
J0168 DRAKKKEM 08 DO F-16 COMBAT PILOT 
J0172 XX TALES 02 DD AESA alice 
Jim EX 1 14 DD is RETALIA er 
JDIB6 BYE OP THE BEMOLDER 05 DD é pa a 
J0Z44 HEROES OP LANCE 03 DD FICNITA BOMBER 
J0260 INDIANA JONES LAST CHUZADE [C] 06 DD am BOAT 
INDIANA XINES LAST CRUZADE (V] 14 DD Cu tp 

KDG:S QEEr I 02 DD JRr P-16 P-Ih 

KG 'S Quer 02 DO ra bed 

KINF'S Quer II 03 DD RAIL ROAD TYCOON 

KDG'S QUBT 1v es. ED SECRET MEAPONS LUFTMARE (V) 
LEIBFE ENT LAR 1 02 DD MIMAS 4 
LI ARE AUT LARRY TI 96 DD ELA SNI 
LEBRE Sgt CARRY II 08 DD sr CAM (M 


LOM 06 DO sax un 
MICKEY MOVER 02 DD TE HUNT OF AED OCTOBER 
TOMA HAMK 


ISLAND GF Dr. BRAIN 03 
JOL CP THE JNGLE II o 
SMP JET os 
KB o3 
KIN;'S QUEST VI 09 
LAURA BOM: DAG. OF AMON RA uk) 
LEGENDS OF VALOUR 04 


SOUND BLASTER PRO LBODES 1 “DE miss o2 


LORD CF THE RING II os 


150 URV'S it E 
SOUND BLISTER T 0232 NAELSTACA os 


n0203 MANCHESTER UNITED FOOTBALL 01 


245 URV'S HO1OJ  MANTIS SPRECK PACX 03 


H0104 MARTO 18 MISGING 985 


FANMODEMO | cu: se mouse mm 3 


Koi MIGHT AND MAGIC Tv 09 


80 URV'S WO26) MAGIC CMOUE III 03 


N0114 NONOPOLY DELUXE FOR WIN. 02 


EDUTAINMNET CD 16 | | ou => o 


Noiz6 POLICE QUEST 1 (VGA) 06 


730 URV'S Wi2a PREGOS TI 03 


E o To UN O —— “0129 PONER NONGE os 
MIDIKIT Hoi oa 
H0272 01 


758 URV'S Ho132 06 


NO154 os 


JOYSTICK DE MÃO [| xs o 


NO437 02 


35 URV'S H0216 10 


CONSULTE ||=: == : 
TAMBEM jm Tatame a 
PRECOSDE |]: io 
MICROS | ||5: F5= : 
IMPRESSORAS!) = imo 5 
EOUTROS []Z: na 


ACESSORIOS ||= ” 


40299 vz 


EMTODOO ||z; =x: 


— BRASIL aid: n oc qu 1 2 do 


do E PE GET DO 03 DD 
MNE QE HI 96 DD 


pe Ta es 


UNNATURAL  GELECTION 
SHADOM CASTER 


[to] 
HD 
WD 
HD 
HD 
HD 


- Ari a a Ai cá RR Le AT pr a a a a EA a ia 2 ed? LR a Sa 
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MIGHT AND MAGIC II oz 
POLICE QEET I 03 DD 


| 
f 


Enviecheque nominal à Glohal Informática Ltda, junto ao pedido incluindo ataxado correio. 
Se preferir, entre em contato para depósito bancário ouSedex acobrar. 
Ouvenha nos visitar pessoalmente. 


Cp gira lit art e ma 


vira 


dir dias 
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ara tre Rep A gg 


epwacalgrs 


PRENDE pr Eno DA 


ater pote Cp tg o Ea ES a ep aÃ 


Drppepemr 


qi rapa e Aja tr fa 


RETURN 


PROCEDURE BARRA 
* + 


* Rotina que mostra na tela o andamento da 


gravacao atraves de barras * 
+ + 
col bar = INT(gravado/passo) 
SETCOLOR (xcor2) 
G 10,10+col bar SAY CHR(177) 
SETCOLOR (xcor1) 

RETURN 


PROCEDURE ALERTA | 
* + 


* Rotina invocada quando ocorre um erro 
qualquer durante o Backup » 
* Esta rotina e usada samtsm pelo programa 
'BK2.PRG'. 
* w 
sn = CONFIRMA('Atencao! Erro DOS: 
*+STR(FERROR(),2)+' Repetir (S/N)') 
STORE .F. TO cancela,repete 
LF en = 'N”' 
cancela = .T. 
ELSE 
repete = .tT. 
ENDIF 
RETURN 





PANE 


XIII ZZAZIZAAAZSAAAZAIAAAZAZAZAARO 


* Programa BK - Backup P/ ci bd «DBF e 
- DBT 


Desenvolvimento: Valmir menegaz de Souza 
Florianopolis - SC 
Arquivo: BK2.PRG 


isquete 
10/04/94 


Restaura arquivos do 
* 


LARA RARZAIZAZAZZASASZAAZAZRRARARZAAS 


SET INTENSITY OFF 
SET CENTURY OFF 
STORE 0 TO 
cop arq, gravado, disk -free, cont, num fra 
STORE 1 TO disco,copia 
IF bk memli = 0 
drive = 'As' 
drivel = 'A' 
ELSE 
drive “Bs! 
drivel 'B' 
ENDIF 
** pede disco no. 1 
SET CURSOR ON 
e 8,10 SAY “Insira o disquete 
* +STRZERO (disco,2)+' no Drive '+drivel 
Q& 9,10 SAY 'e apos tecle algo....... [ESC] 
cancela.' 
INREY (0) 
é 8,10 CLEAR TO 9,78 
SET CURSOR OFF 
IF LASTREY ()=27 
fim = .tT. 
SET INTENSITY ON 


fonte = FOPEN(drive+'CONTROL.001') 
IF fonte = -1 
MENS (“Erro de abert.'+drive+'CONTROL.001') 
cancela = .T. 
EXIT 
ENDIF 
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DO OPEN CTL 
IF cancela 
EXIT 

ENDIF 


IF VAL(digk ctl)<>1 
gn = CONFIRMA('Atencao! Disco nao 
confere. Continuar (S/N)') 
IF sn = 'N' 
cancela = .T. 
EXIT 
ENDIF 
FCLOSE (fonte) 


IF cancela 
SET INTENSITY ON 
SET CURSOR ON 
RETURN 
ENDIF 
G 13,10 SAY “Data do Backup: 
Ge 13,COL() SAY SUBSTR(dat ctl,1,2)+'/ 
* +SUBSTR (dat ctl,3,2)+'/'+; 
SUBSTR (dat ctl1l,5,2) 
G 14,10 SAY “Hora do Backup: “ 
e 14,COL() SAY 
SUBSTR (hor ctl,1,2)+':'+SUBSTR(hor ct1l,3,2)+':'+; 
SUBSTR (hor ctl,5,2) 
PRIVATE 
arr dirOl[ADIR(drive+'*.*')],arr tm[ADIR(drive+'*.*')] 
DECLARE arr dir01[ADIR(drive+'*.*')] 
DECLARE arr tm0I1[ADIR(drive+'*.*')] 
num arq = 
ADIR(drive+'*.*',arr dir01,arr tm01) 
disk free = DISKSPACE() 
IF disk free < 1 
MENS ('Atencao! Nao ha espaco no disco 
rigido. Tecle algo..') 
SET INTENSITY ON 
SET CURSOR ON 
RETURN 
ENDIF 
tot arq = 0 
FOR £ = 1 TO (num arq - 1) 
tot arq = tot arq + arr tm01T[£] 
NEXT 
disk free = DISKSPACE() - (num arq*900) 
G 8,10 SAY “Disco: '+STRZERO(disco,2) 
GQ 8,30 SAY 'Restaurando.....' 
e 10,10 SAY REPLIC(CHR(176),51) 
passo = tot arq/50 
fra = .F. 


DO RT DADOS 
IF cancela .OR. erro 


MENS ('Restauracao cancelada. Tecle algo..') 
ENDIF 


SET INTENSITY ON 

SET CURSOR ON 

e 8,10 CLEAR TO 18,78 
CLOSE ALL 


PROCEDURE RT DADOS 

A RS SD E E E o, 

* Rotina principal p/ Esstauracao dos dados 
nes disquetes 
* 





STORE .F. TO 


cancela, repete, erro, fim, arq dbt, fim dbt, flag, fra ant 
STORE 0 TO 


gravado, tem, grv arq, flag, tot. arq,narq ctl,wirive,n drive 
arq ant = SPACE(1) 


wdrive = 'C:' 


e 12,10 SAY 'Restaurando Arquivo -> 
grv prim = .F. 


RS DRE? RR 


Di esmo ai estadio am RR ; DEDE MED 
4 ioga Ea o mi, 
A Co ct e a ui siri grafia 
Cosa a uam a Em) EO 2 q 
“4 


SID ra Ade a + imita botao e e a SA 
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o e vga! E pes maga 
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INFORMÁTIC 


AN AÇA ARA A RA A ARO A, RAS A 


Tel : 





011) 231-2367 


Av. Ipiranga,345 - sala 1107 - São Paulo - SP CEP 01046-010 ( 50 mts. do metrô República) 
Preços (Discos incluídos): HD Maxell = 1.8 URV / DD Vat =1.4 URV Fax/Fone:214-2650 


Gara 


ntia : 


60 dias contra vírus e defeitos. Taxa de correio a cada 15 discos: 2.0 URV 


PROMOÇÃO :Concorra a 1 Placa de Som e mais 4 Superprêmios (Consulte !) 

A cada 10 cópias com disco, ganhe uma à sua escolha; a cada 50 cópias, ganhe 10. 

* Suporte telefônico (Dicas de jogos e instruções sobre os aplicativos) 

* Qualidade e bom atendimento é nosso lema para ser a melhor Softhouse de São Paulo. 
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P/A 18 HORNET NAVAL STRIKE 
FIRLDS OF GLORY 
P85 CINARIOS AUVIKIA 
PES CINARICA KRENNYA 
PES CRNARIOS NEW YORK 
P83 CINARIOS AXIS 
F8S CENARIOS SAM FRANCISCO 
40362 GABRIEL NIGHT 
H0999 GARAT MAVAL BATTLES 2 
HOM IA 2 
H0345  JURABSIC PARK 
WO364  LEISURE SUIT LARRY VI 
H0403 LIVERPOOL SOCCER 
NOYI3 LosT Di TIME 
H0303 MASTER OF ORION 
METAL & LACE 
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H0407 
WOJ37 
ND356 
mo351 
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N0343 THE MAND OF FATE (KYRAMDIA 2) 08 
MIM TIE PREGA (CFICIMY 
WI TO» GM “2 
mO37a TROIS qq 
N0394  ULTDIA VIII - PAGAM oa 
N0373 ULTIMA VIII SMERCK PACK o 
M03823 UMMATUNAL SELECTION 0 
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CONSTITVICAO ELETRONICA 0 

COONPIRETLI DADE o2 

CONTAS A PAGAR o 

CONTAS A PAGAR É RECEBER 03 

COrTAS A RECEBER o! 
CONTROLE BANCARIO 01 wD 
CONTROLE DE ESTOQUE 01 DD 

CONTROLE DE VIDEO LOCADORA 01 

CUSTO E PATURAXINTO o 

DANCAD 3D os 
DAR o DD 
DISEDUDS e pD 
DRIVE COKX & ALICH o DD 
EMULADOR AXNIGA o DO 
ETIQUETA 02 DD 
ol DD 


SOLICITE CATALOGO GRATIS 


Pedidos: 


JOGOS EM 


MIL KIGLIAS 
ALONE IN THE DARX 
AMAZON 
ANCIENT ART OF MAR IX EXIES 
B-17 PLYING PORTRESS 
BATHAN RETUANS 
BRAT THE HOVEE 
CAR & DRIVER 
CARMEN SANDIEGO DELUXE 
CARMEN RANDINGO IN SRACE 
CARRIERS AT WAR 
CASILES 2 
CHALLENGE OP PFÍVE RERALMS 
CHESS MANIAS 3 MILLION AND à 
CIVILIZATION 
COBRA MISSION 
COMANCHE CVERKILL 
COKANCHE MISSOES 1 
COMANCHE MISAGES 2 
COMMANDER KEN $ 
COMMANDER KERN 6 


NE 2 
ROO QuRAT 2 

EL FIM 

ErIC 

EE O” HE BEDIDEA 3 
P-15 SRDE GE 3 

FALO 3.0 
FIEVEL AN AMERICAN TAIL 
FLASHBACK 

PREDOY PRARKAS 

FRONT PAGE POOTRALL PRO 
GOBBLINS 2 

GREAT NAVAL BATILES 
CUNSHIP 2000 

GUN IMIP 2000 IMAND & ICE 


MANCHESTER UNITED POOTBALL 
NANTIS 

MARIO 18 MINDE: 

MIGHT AND MAGIC 3 

WIGKT AND MAGIC 4 

NORREY IAMD 2 : LE CHKXX'S 
NONOPOLY DELUXE (WIMDONE) 


PRIVATEER (WING COMMANDER) 
PROTONTAR 
QUEST POR GLORY 3 
RETURN OP THE PHANTOM 
RETURN TO ZORK 
REX NENVLAR 
ROBIN HOCO 
ROBOCOP 3D 
SANOO FIGHTER 
SHERLOCK NOLXES 
SHADON PRESIDENT 
SACE QUEST 5 
OPERAR OF DESTINY 
BPESL CASTING 301 
ETAIKE COMANDER 
SIUNT ISLANO 
SUMMER CHALLENGE 
TASK FORCE 1942 
TERMINATOR 2029 
THE INCAEDINLE MACHINE 
THE LEGACY: REALM OF TERROR 
“HE LEGEND OF KYRANDIA 
TVE ROCITEER 
TORNADO 
ULTIMA UNDERNORD 17 
UUIDA VII 
ULIDA VO pet O 
ULTRABOTS 
WAX MORKA 
WINS COMMANDER 2 
MOLPSTED 30 
NORLD CIRVIT 
NORLDO CERNCUIT UPOATE 
X NING 


o 
[o] 
5 


õ 


ARRAES EEEEEEEEEEEET EEE 


oso 
de td nd 


2 
as 


os 
os 
“3 
03 
03 
o 
q 
o 
os 
11 
o 
06 
os 
a] 
os 
o 
06 
04 
06 
05 


A] 
06 


02 
03 
03 


02 
02 
10 


[o 
o 
o 
DR 
03 
os 
ou 
os 
02 
os 
os 
91 
02 
o 
os 
os 
03 
0 
04 
o2 
02 


04 
os 
04 


os 
os 
os 
12 
10 
[pl 
04 
os 
10 
oq 
03 
02 
04 
o 
04 
oq 
06 
[el 
oa 


o 
03 
os 
06 
o 
o2 
o 
8 
o 
os 
oq 
os 


556555555 555586555565555855558853558555555 


ADVENTO 


Por carta ou telefone de Segunda a Sexta das 9: 


RES e RPG 


00 as 19 


ARTAS E caAssINt 


ESPACIAIS 


SBSBBSEESSsBBSAS 


y 
od 


o 
o 


o 
o 


LON ELON 

MANCHESTER UNTTED 

MIKE ITA UDIT. POCIRAL (V) 
COME OM CNE (JORDAN VE SIND) 
BANZA KICK BOKXIMO 

POA TOUR GOLF 
MENVICE MAY TENIS 
SKATE CR TE 

BATE ROX 
TINXIS PRO TLR 

THE SUOGR GAMES EDTTIGH 
THE WINTER GAMES RIITICN 


00 e aos Sábados das 9 


SBBSSSBBESSESSSSSSSBBRBEBLSENsEE 


8888888888 53885B8 
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PORNOS Po IROTIC 


ENO "E BEACH BALL 
CDE PoRNO 
CRISTIANA CE CLIVEIRA (V) 
DE VEEM +30 ANIMACOES (V) 
FAST EXXA NEST 

EROTIC BMOM 
MIAIOS CDA PLAYROY (V) 
RRDEESS! 

PPIHCUSE JIGIAM PIZLE(V) 
NAXINE 

NERI 

EMXA 1 


IOCINTO 


8BB8BBSB88HBBSB8HES 


SEMUEADORES 


O MIKE EM 2 
A-10 'TDUK KILIBR 
A-1o WE KUUBR 2 
A“TRAIN 

TR BRR 2 
AIR COMMAT SDARATOR 
AIR TRAFFIC COFTROL 
AXTILE NOKS 1942 
MLS MAX 

PIA FUNUIK PILHTER 2.0(V) 
F=14 KM CAT 

PIU SR Raê 1 
P-I5 SNXE AE 2 
F-16 COMBAT BILOT 
P-19 SIRALIM FICA 
F-23 REIALIKKR 

F-4 MRETT EDALATOR 
FALOM 1.0 

Gu BORT 

am mm 

Mr F-jé P-18 
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00 as 14:00. Relacione o 


nome, o codigo e a quantidade de discos de cada programa. Se preferir, visite-nos pessoalmente. 
Pagamento : Envie um cheque nominala J & M INFORMÁTICA LTDA. no valor total de seu pedido não se 
esquecendo de adicionar a taxa de correio. Não trabalhamos com SEDEX a cobrar. 
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DO WHILE .T. && loop do restore INKEY (0) 
& 8,10 CLEAR TO 9,78 
vetori = 'arr dir'+STRZERO(disco,2) SET CURSOR OFF 
vetor2 = 'arr tm'+STRZERO(disco,2) IF LASTKEY ()=27 
cancela = .T. 
DO R OPFON EXIT 
IF cancela ENDIF 
EXIT 
ENDIF DO WHILE .T. 
fonte = 
DO WHILE .T. FOPEN (drive+' CONTROL. ' +STRZERO(disco,3)) 
a 12,34 SAY SPACE(15) IF fonte = -1 
e 12,34 SAY &vetorl [copia] MENS (“Erro de abert. 
arq des = wdrive+&vetorl [copia] * +drive+' CONTROL. ' +STRZERO(disco,3)) 
cancela = .T. 
IF fra ctll = '0' EXIT 
R OPDES() ENDIF 
ENDIF 
IF cancela DO OPEN CTL 
EXIT 
ENDIF IF VAL(disk ctl)<>disco 
TONE (1000, 1) 
IF fra ctli = '1' .AND. copia<>1 e 17,20 SAY 'Atencao! Disco nao 
R OPDES() confere!! Troque o disco e' 
ENDIF e 18,20 SAY 'apos tecle [ENTER]. 
IF cancela [ESC] cancela” 
EXIT INKEY (0) 
ENDIF & 17,20 CLEAR TO 18,78 
IF LASTKEY ()=27 
IF tam > disk free cancela = .T. 
MENS ('Atencao! Nao ha espaco p/ EXIT 
continuar restauracao.Tecle algo..') ENDIF 
cancela = .T. FCLOSE (fonte) 
EXIT LOOP 
ENDIF ENDIF 
EXIT 
£f size = tam ENDDO 
disk free = disk free - tam IF cancela 
DO R GRAVA EXIT 
IF cancela ENDIF 
EXIT 
ENDIF disk free = DISKSPACE() 
IF disk free < 1 
IFP (copia+1)=num arq MENS ('Atencao! Nao ha mais espaco D/ 
IF fra ctl = '0” restaurar os arquivos.') 
FCLOSE (destino) erro = .tT. 
fim = .T. EXIT 
ENDIF ENDIF 
EXIT 
ELSE DECLARE &vetorl [ADIR(drive+'*.*')] 
FCLOSE (destino) DECLARE &vetor2 [ADIR(drive+'*.*')] 
ENDIF num arq = 


ADIR(drive+'*.*',&vetorl, &vetor2) 
FCLOSE (fonte) 
tot arq = 0 
copia = copia + 1 
FOR £f = 1 TO (num arq-1) 


DO R OPFON tot arq = tot arq + &vetor2[£] 
IF cancela NEXT 
EXIT 

ENDIF disk free = DISKSPACE() - (num arq*900) 
ENDDO 
IF erro .OR. fim .OR. cancela e 8,10 CLEAR TO 18,78 
EXIT & 8,10 SAY “Disco: '+STRZERO(digco,2) 
ENDIF Q 8,30 SAY 'Restaurando.....' 
FCLOSE (fonte) G 10,10 SAY REPLIC(CHR(176),51) 


passo = tot arq/50 
STORE O TO cop arq,gravado, disk free,cont 


disco = disco + 1 e 12,10 SAY 'Restaurando Arquivo -> 
“setorl = 'arr dir'+STRZERO(disco,2) 
vetor2 = 'arr tm'+STRZERO (disco,2) G 14,10 SAY 'Data do Backup: 
& 14,COL() SAY SUBSTR(dat ctl,1,2)+'/ 
copia = 1 ' +SUBSTR (dat ctl,3,2)+'/'+; 
SUBSTR (dat ct1l,5,2) 
G 8,10 CLEAR TO 15,78 e 15,10 SAY “Hora do Backup: 
TONE (1000,1) G 15,COL() SAY 
SET CURSOR ON SUBSTR (hor ctl,1,2)+':'+SUBSTR(hor ctl,3,2)+':'+; 
e 8,10 SAY 'Insira o disquete SUBSTR (hor ctl,5,2) 
' +STRZERO(disco,2)+' no Drive '+drivel 
& 9,10 SAY ' [ESC] cancela.” ENDDO 
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ENDIF 


RETURN ENDIF 
EXIT 
PROCEDURE R OPFON ENDDO 
À ii a e e a ie ie 
* Rotina que abre os arquivos nos disquetes RETURN 
p/ gravacao no disco rigido * 
E dd PROCEDURE R GRAVA 
cancela = .F. t——————————————————————— mt 
DO WHILE .T. * Rotina que grava um arquivo do disquete 
arq fon = drive+&vetori[copia] P/ j disco rigido 
fonte = FOPEN(arq fon,2) a 
IF fonte = -1 STORE .F. TO cancela, repete 
2 DO ALERTA grv arq = 0 
1 IF repete 
- LOOP DO WHILE .T. 
ENDIF bloc = 4096 
ir ENDIF buffer = SPACE(bloc) 


EXIT 
ENDDO IF £f size<4096 


IF cancela bloc = f size 
RETURN buffer = SPACE(bloc) 
ENDIF ENDIF 
tam = FSEEK(fonte,0,2) 
FSEEK (fonte,0,0) DO WHILE .T. 
RETURN r bytes = FREAD(fonte, Gbuffer, bloc) 


PROCEDURE R OPDES IF r bytes != bloc 
+" nr DO ALERTA 
* Rotina que abre os arquivos no disco IF repete 
rigido a serem restaurados * repete = .F. 
ow LOOP 
cancela = .F. ENDIF 
DO WHILE .T. ENDIFP 
destino = FCREATE (arq des,0) EXIT 
IF destino = -1 ENDDO 
DO ALERTA IFP cancela 
IF repete RETURN 
repete = .F. ENDIF 
LOOP 


(G E IN E | 2 1 Ambiente de desenvolvimento de relatorios 
| = PARA CLIPPER 5 .1/5.2 E COMPATÍVEIS 
O GENESIS 2.1 é um ambiente de desenvolvimento de relatórios p/clipper 5.1/5.2 e 


compativeis (Summer 87, dBase, FoxBase) eliminando a necessidade de programas 
fontes, compilação, linkedição e aumentando sensivelmente a produtividade. 


Composto de módulo objeto compatível com o clipper 5, podendo ser linkeditado e 
distribuído juntamente com seus sistemas desenvolvidos em Clipper 5; e de módulo 
executável compatível com qualquer versão do Clipper, dBase, FoxBase e similares. 


CARACTERISTICAS 

* Reduz em até 90% o tempo de confecção de relatórios simples e até 70% de relatórios sofisticados; 

* Gerencia até 250 arquivos (de todos os tipos) abertos simultaneamente; 

* Controle de alinhamento horizontal e vertical totalmente livre, permitindo ao usuário desenhar seu lay-out como 
desejar (etiquetas, cheques, notas fiscais, boletos bancários, etc.);. 

« Controla até 9 níveis de quebra e subtotais; 

* Permite criar índices internamente no GENESIS ou aproveitar índices já prontos do seu sistema; 

* Permite filtros e ralacionamentos de torma idêntica ao Clipper ou controlados pelo usuário como em um 
programa tradicional: anstur Éh Ugo Micro Imformanhes À 

* Aceita qualquer expressão válida em Clipper como campo de impressão, inclusive funções do usuário, macros | 
code blocks, objetos, etc; 

* Permite controle total de arquivos através das funções do Clipper 5, como dbSeek (), dbSelecArea(), dbSet- 
Relation(), etc, possibilitando os mesmo recursos de um programa tradicional: 

* Possui controle dinâmico do fluxo do relatório através de comandos &iF.. 4ELSE4.. 4ENDIF e 4GOTO.. CASE: 
possibilitando gerenciamento dinâmico da impressão para relatórios sofisticados ou específicos; 

* Possui senhas para impressão e edição. 

* Permite criar e alterar facilmente drivers de impressoras, adaptando-se a qualquer impressora do mercado. 
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SEGMENTO GERENCIAL TECNICO | — 


7 SEMINÁRIOS COM 10 HORAS DE DURAÇÃO CADA, E 120 PALESTRAS 
NACIONAIS E INTERNACIONAIS TOTALIZANDO 190 HORAS DE INFORMAÇÃO. 


OS SEMINÁRIOS 


E ç Ç Q LH E R Ó 1 - ABRANGÊNCIA E EVOLUÇÃO DA FAMÍLIA WINDOWS 
2 - PLATAFORMAS OPERACIONAIS: 0S/2 


3 - UNIX E REDES EM SISTEMAS ABERTOS 


Ç O N G R ESS Q & - SOLUÇÕES PARA REDES CORPORATIVAS 
5 . MULTÍMIDIA: A REALIDADE DE UMA NOVA ERA 


6 - TECNOLOGIAS EMERGENTES NA AUTOMAÇÃO DE PROCES. DE NEGÓCIOS (BPA) 


F É N AS 0, di 7 - DBASE WINDOWS: ORIENTAÇÃO AO OBJETO E A CLIENTE / SERVIDOR 
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DESENVOLVIMENTO 


uUma Apresentação à Lógica Fuzzy 
« Projeto de Sistemas Incorporando Princípios de Reengenharia de Processos 
sÃ Orientação a Objetos na Prática 
= Produtividade no Desenvolvimento de Software 
«Linguagens Visuais 
«Metodologia de Desenvolvimento de Sistemas para Ambiente Unix C/SGBDS e 
Linguagens de IV Geração 
«Ambiente Cliente/Servidor: Desenvolvimento e Redesenvolvimento 
s Tecnologia de Proteção a Software 


«Paradigmas dos Ambientes de Desenvolvimento de Aplicação nos Anos 90: 
Programação Visual & Orientação a Objetos 


sCases - Metodologias e Ferramentas 
«Bancos de Dados Textuais X Hipertexto: Diferenças e Aplicabilidades 
aPortando Aplicações em C do MS-DOS para o MS-Windows 
«O Impacto da Arquitetura Cliente/ Servidor na Especificação de Sistemas 
«A Evolução dos Sistemas Gerenciadores de Banco de Dados 
sBanco de Dados distribuídos 
implantação Arquitetura Client Server 
sDesenvolvimento Aplicações Client Server 
«Metodologias para Modelagem de Dados 
Sistemas Integrados em Tempo Real: Tendências para os Anos 90 
= “Tunning” em Banco de Dados Relacionais: Importância e Técnicas 
«Ambiente de Desenvolvimento Orientado a Negócios 
alndicadores de Produtividade e Quantidade a partir de Métrica 
«Desenvolvimento de Sistemas Distribuídos 
«Sistemas Operacionais Intelectuais do P.E. no Controle de Qualidade 





sNotes 
| GERENCIAL 
E essançara Empresarial: Um Enfoque Orientado a Cbjetos 
«DOWnsizing SNA x TCPAP 


«EISAVIAA: O Poder da Informação na Ponta dos Dedos 
«Modelo Operacional dos Arquivos como Base Estrutural para Informática 


«A Comunicação de Dados como Agente Integrador de Empresas, suas Áreas 
internas, Clientes e Fomecedores 


«O Novo Papel do Mainframe nos Ambientes Distribuídos 

«Prevenção de Vírus e Outros Problemas de Segurança de Dados: Relação de Custos 
e Benefícios 

«Superservidores: Chegamos a Era do Micromainframe? 

«Reengenharia nos Negócios Através de Tecnologias de Capacitação Humana 

«Bases de Dados de Acesso Público 





«Direitos Autorais de Imagem na Multimídia, o Próximo Desafio 


«Importância Estratégica de Orientação por Objeto 


= Reengenharia da Informação 

« Megatendências da Tecnologia da Informação 

+O Papel de Tecnologia de Informação 

« Tendências/Downsizing e SGBDS: Uma aliança que você deve conhecer 

a ii dos Sistemas de Informação na Gestão da Qualidade Segundo a 


« Terceirização do Suporte aos Usuários Finais: Um Plano de ação 


REDES E CONECTIVIDADE 


«Estações Inteligentes em Aplicações Cliente Servidor Avançadas 
«implementando Cliente-Servidor: Estudo de Dois Casos Práticos 
«O “Calcanhar de Aquiles” da Arquitetura Cliente/Servidor 

a Work Group Computing 

sRede Corporativa dos Anos 90 

ainteroperabilidade: Questão Estratégica nas Redes Corporativas 
sMobile Environments Wireless Computing 

a Grandes soluções em Conectividade para pequenas empresas 
«Gerenciando o Ambiente Cliente/Servidor 

=ÃS/400- Ambiente Cliente/Servidor 

Distribuição Eletrônica de Software 

«intemetwork - Planejamento Estratégico da Solução 
«Otimização dos Recursos Empresariais com a Utilização de Redes Locais 
a Conectividade de Sistemas Móveis 


INTERNACIONAIS 


= The Challenge of Document Image Management on Large Networks 

«Fundamentals of Creating Client'Server Applications: A Comparison of Mations 

eVirus: Como Combatê-los 

«A Highway to Client Server 

= The Importance of the Eletronic Mail 

«Os Mais Recentes Desenvolvimentos na Arte de Ligar o Micro e o Mainframe IBM 

«Soluções em Armazenamento de Dados para Servidores de Rede Local e Muliiusuários 

«Application Centric Connectivity Software, a New Approach Toward Inxcreasing 
User Productivity 


«Middieware, a Powerful Tool for Client Server Migration 
«Desenvolvimento para Múltiplas Plataformas - Portabilidade 

«Using Voice and Fax Processing For Global Competitive Advantage 
«Conectividade Total em Redes de Longa Distância (WAN) 
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FORNECEDORAS DE TECNOLOGIAS. 
SEMINÁRIOS: 

1. EIS E CIS NA EMPRESA BRASILEIRA 
2: GIS NA ADMINISTRAÇÃO PÚBLICA 
3- INFORMÁTICA NA MEDICINA 


4 AUTOMAÇÃO COMERCIAL E O USO DE CÓDIGO DE BARRAS/MULTIMÍDIA 


5- ENSINO DA INFORMÁTICA NO BRASIL 
6 MACMUNDO 


| DIA PARA CADA TEMA COM 7 HORAS DE TECNOLOGIA ESPECIALIZADA POR DIA. 
42 HORAS DE PALESTRAS, WORKSHOPS, LABORATÓRIOS E EXPERIMENTOS 
UMA ABORDAGEM ATUAL E COMPLETA APLICADA AOS DIFERENT ES SEGMENTOS DE TRABALHOS. 


TERNACIONAIS 


« Fraudes em Redes Locais: Prevenção e Combate 

« Rede Estruturada Integrando Dados, Voz e Imagem 

= Novas Tecnologias para Interligação de Ambientes Heterogêneos 
« Gerenciamento Remoto de Redes 

« Eficiência de Protocolos de Comunicação de Dados Via Satélite VSAT 
a Comunicando Dados Via Telefonia Celular 

a Interoperabilidade-Para que Serve? 

s Como Montar Backhomes de Redes Locais 

a Implementando o Servidor EDI 

a Infra-Estrutura de Rede em Um Ambiente Cliente/Servidor 

= Estratégias de Comunicação para Redes Corporativas 


PLATAFORMAS TECNOLOGICAS 


« Projeto Chicago-Windows 4.0 

s Unix x Windows NT 

« Os Rumos da Computação Móvel 

s Comunicação e Transferência de Arquivos Windows-Unix 

« Road Map: Unix 

= Conheça a versatilidade do AIX/6000 

e Risc System/6000 e Power Pc, Sistemas Operacionais e Aplicações 





« À Resposta das Tecnologias em Redes Locais para Suporte às Novas 
AplicaçõesGráficas / Multimídia 


= Tratamento de Imagem - Uma Estratégia de Marketing 

« Multimídia, a Fusão dos Meios 

« Multimídia em Marketing 

= Parceria em Projeto de Multimídia 

a Aumente 0 seu Poder com CD-Rom 

= Processamento de Imagens para Escritório: Um Estudo Petrobrás 
« Multimídia com o Clipper 

a Interfaces Gráficas 

a Os Caminhos da Cor 


AUTOMACAO E INTELIGENCIA ARTIFICIAL 


= Engenharia do Conhecimento 

= Construção de Bases de Conhecimento como a Engenharia do Conhecimento 
= Automação de Escritório em Ambiente Cliente/Servidor no AS/400 

= Automação de Escritórios com Sistemas Heterogêneos 


O CONGRESSO DA TECNOLOGIA 


ANHEMBI « SÃO PAULO + 19 A 22 DE JULHO 
SEGMENTO USUÁRIO ESPECIALIZADO 


ARQUITETOS, EMPRESÁRIOS, ENGENHEIROS, EXECUTIVOS, PUBLICITÁRIOS, MÉDICOS, 
PROFESSORES E FUNCIONÁRIOS DE EMPRESAS ESTATAIS. CADA PROFISSÃO DISPÕE DE UM 
CONGRESSO ESPECIALIZADO QUE FOI ESTRUTURADO EM CONJUNTO COM 
ASSOCIAÇÕES DE CLASSE, UNIVERSIDADES, CENTRO DE PESQUISA E EMPRESAS 
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DIA Todos os congressistas 
20/07 receberão, gratuitamente, 
pra os Anais do Congresso, 
21/07 em disquete, o processador 
0107 de textos Fácil "for Windows" 
/ no valor de US$ 180,00, 
19/07 além de uma assinatura 
20/07 semestral da Revista Byte. 
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7 horas de tecnologia 
Escolha um seminário 
na área indicado 


Q ElSeCIS na Empresa Brasileiro 


21 horas de tecnologia 
Escolha um seminário e 
assista a muitas palestras 
1 Q Abrangência e evolução da Família 
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O... a 
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40 Soluções para Redes Corporativas Código de Barras/Multimídia 
5 £] Multimídia: A Realidade de Uma () Ensino da Informática no Brasil 
Nova Era 
6 Tecnologias Emergentes no () Macmundo 
Automação de Proces. de Negócios e 
7 U DBASE Windows: Orientação ao Envie sua inscrição, junto com o pagamento para 
E ; FENASOFT Feiras Comerciais Ltda. 
1º Seminário Corporativo BYTE Av. Osmar Cunha, 251 - CEP 88015-100 
Evento Especial - 7 horas de teconologia Florianópolis - SC - Deplo. de Congressos. 
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DO WHILE .T. 


w bytes = 
FWRITE (destino, buffer, bloc) 
IF w bytes != Dbloc 


DO ALERTA 
IF repete 
repete = .£F. 
LOOP 
ENDIF 
ENDIF 
IF cancela 
RETURN 
ENDIF 
EXIT 
ENDDO 
f size = f size - 4096 
gravado = gravado + w bytes 
DO R BARRA 
IF £ size<i 
EXIT 
ENDIF 
ENDDO 
RETURN 
PROCEDURE R BARRA 
É mm eee pare E 
* Rotina que mostra o andamento da 
gravacao na tela atraves de barras + 
À me e ae ee “DE 


col bar = INT(gravado/passo)+1 
SETCOLOR (xcor2) 
a 10,10 SAY REPLIC(CHR(177),col bar) 


SETCOLOR (xcor1) 
RETURN 
PROCEDURE OPEN CTL 

À eae e ee VM 

* Rotina que abre os arquivos de controle 
de cada disquete + 

É e e a terem WE 


tam ctl = FSEEK(fonte,0,2) 

IF tam ctl <i 

MENS (' Erro no acesso ao arquivo fonte. 

Tecle algo..') 

cancela = .T. 

RETURN 
ENDIF 

FSEEK (fonte,0,0) 


buffer = SPACE(tam ctl) 


DO WHILE .T. 
r bytes = FREAD(fonte, Gbuffer, tam ctl) 
IF r bytes != tam ctl 
DO ALERTA 
IF repete 
repete = .F. 
LOOP 
ENDIF 
ENDIF 
EXIT 
ENDDO 
IF cancela 
RETURN 
ENDIF 


FCLOSE (fonte) 


disk ctl SUBSTR (buffer,1,2) 


dat ctl = SUBSTR(buffer,3,6) 

hor ctl = SUBSTR(buffer,9,6) 

fra ctl = SUBSTR(buffer,15,1) 

fra ctli = SUBSTR(buffer,16,1) 

last ctl = SUBSTR(buffer,17,1) 

arq ctl = SUBSTR (buffer, 18, (tam ctl-17)) 
RETURN 


36 MICRO SISTEMAS 




























BK3.PRG 
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* Programa BK - Backup P/ Arquivos .DBF e 
« DBT * 


* Desenvolvimento: Valmir menegaz de Souza 
* 

* Florianopolis - SC 

* 

* 

* 

* Arquivo: PBK3.PRG  - Escolhe tipo de drive 
para gravar os arquivos a 

* 

* 

* 10/04/94 

+ 


DO WHILE .T. 
mp2 = bkXk memi+l 
e 10,26 TO 13,34 
G 11,27 PROMPT “Drive A” 
GQ 12,27 PROMPT “Drive B' 
MENU TO mp2 
DO CASE 
CASE mp2 = 0 
Q 10,26 CLEAR TO 13,34 
EXIT 
CASE mp2 = 1 
bk memi = 0 
a 6,67 SAY “A' 
CASE mp2 = 2 


bk memi = 1 

Q 6,67 SAY 'B' 
ENDCASE 
Q& 10,26 CLEAR TO 13,34 


EXIT 
ENDDO 


RETURN 


BK4.PRG 


FUNCTION MENS 
PARAMETERS conteudo 

PRIVATE tabulacao,corm 

corm = SETCOLOR(xcorl1) 

tabulacao = ( 70 - LEN(conteudo))/2 
e 20,10+tabulacao SAY conteudo 

TONE (1000,5) 

INKEY (0) 

& 20,10 CLEAR TO 20,78 

SETCOLOR (corm) 
RETURN(.T.) 






FUNCTION CONFIRMA 
PARAMETERS mensa 
PRIVATE tabulacao,corc, gn 
corc = SETCOLOR(xcorl) 
tabulacao = (70 - LEN(mensa))/2 
e 20,10+tabulacao SAY mensa 
sn = 'S' 
TONE (1000,1) 
& 20,COL() GET sn PICT “17 VALID(sn$'S*N') 
READ 
IF LASTREY ()=27 
sn = 'Nº' 
ENDIF 
e 20,10 CLEAR TO 20,78 
SETCOLOR (corc) 
RETURN (sn) 
















LINHA 95 DOS PRODUTOS 


Se o seu serviço está complicado, 
cheio de burocracia e com 
montanhas de papel, não se 
desespere. 

A estratégia tem a sua solução. 
Oferecemos programas produtos 
que adaptamos à sua empresa, 
para resolver o seu problema e 
acabar com a sua "dor-de-cabeça". 





Se desejar, também oferecemos 
produtos sob-medida para sua 
empresa, desenvolvidos no menor 
tempo possível. 

Experimente e comprove!! Faça 
você também uso das mordomias 
da estratégia. "Test drive" gratuito, 
instalação, treinamento, "hot line”, 
enfim tudo aquilo que você sempre imaginou que ia receber 
quando comprasse um software. 

Adote a melhor estratégia, solicite a visita de um 
representante técnico ou venha nos fazer uma visita. 





Na linha de programas produtos temos os "genéricos" e os 
"específicos". Os "genéricos" são oferecidos nas versões 
light”, normal, multi e super. Os recursos disponíveis variam 
de acordo com a versão, sendo que a versão super é a mais 
completa, tendo características multi-empresa e 
multi-usuário. 


Os nossos genéricos são: 


Caixa 

Sistema de emissão de cheques em 
microcomputador, é a forma mais 
rápida e segura de preenche-los e 
assina-los. 





Contas a Pagar 

Pode ser integrado ao CAIXA. O 
CPAG controla as despesas classificando-as e agrupando-as 
contabilmente e gerencialmente segundo centros de custo e 
tipos de despesa. 


Cadastro 

Programa para controle de 
fornecedores e clientes, permite a 
emissão de etiquetas 
auto-adesivas para 
endereçamento postal bem como 
a impressão individual de 
envelopes personalizados e 
subscritos. 





GONGORBNIE AB 
Conta 


A contabilidade descomplicada e simples de usar. Permite 
um plano de contas com até 6 níveis. 


Os nossos específicos são: 


Controle de Operações de Câmbio 

Este destina-se aos usuários que desejem informatizar as 
suas atividades de Câmbio, beneficiando-se assim da rapidez 
e flexibilidade advindas do uso do microcomputador. . 


Chef 

Controle de Custos Refeições 
destina-se a restaurantes e empresas 
fornecedoras de refeições que desejam 
ter um controle sobre a rentabilidade de 
cada prato produzido e servido. 





Ônibus 
É um software para empresas que operam com ônibus de 
turismo. Ele controla as reservas e as excursões, emitindo 
listagens de pick-up, estatística de vendas, relatórios de 
serviços para cobrança dos agentes, bem como respectivas 
comissões e inúmeras outras informações. 


Mago 

É o sistema de controle de gado 
leiteiro. Gerencia as atividades 
cotidianas das granjas leiteiras. Avalia 
o desempenho dos animais sob 
aspectos reprodutivos e zootécnicos, 
individualmente ou em conjunto. 
Mantém um cadastro dos animais, / 
trata das tarefas relativas à produção 
de leite, cuida das atividades reprodutivas: cios, diagnósticos 
de prenhez, tratamentos pré-parto, inseminações e 
coberturas. 





Sica 

Controla a carteira de ações de um investidor. Todas as 
operações são lançados e as despesas de corretagem são 
apropriadas ao preço das ações. A carteira é avaliada 
também em UFIR e o resultado das operações é apurado de 
forma sistemática para a declaração mensal do Imposto de 
Renda. 


E para finalizar oferecemos o nosso já 
consagrado Papel Timbrado. Ele é o 
software que timbra o papel na sua 
impressora, nos relatórios produzidos 
PAPEL TIMBRADO por qualquer programa. E prático e útil. 





av pres vargas 962/414 - rio - 20071-002 - tel.: 263-4386 





Não perca esta chance, a sorte está à solta... 





PROGRAMA 





Micro: PC XT/AT 
Memória: 512 Kbytes 
Vídeo: CGA/EGA/VGA 

Linguagem: Turbo Basic 


Requisitos: Impressora 
[E 





Sorte Grande 


Álvaro Vieira Arcoverde Neto 


Este programa destina-se ao sorteio de apostas 
para a SENA e LOTO, podendo imprimir e gravar o resultado 
dos sorteios. 

Para visualização ou impressão do conteúdo de um 
arquivo gravado em disco, com as apostas, use qualquer 
editor de textos, ou o comando TYPE do MS-DOS (TYPE 
<arquivo>>PRN, para imprimir). O funcionamento do restante 
do programa é bastante simples, dispensando explicações. 

Finalizando, desejo BOA SORTE a todos os que 
foremfazer uso deste programa (espero os futuros milionários 
não esqueçam o pobre autor do mesmo). 


ÁLVARO VIEIRA ARCOVERDE NETO usa um PCAT/386. É autodidata 
em Basic e programa em dBase e Cipper. 


SORTE.BAS 


* Programa : SORTE Versao 1.0 
* Autor : Alvaro Vieira Arcoverde Neto 
* Data : Janeiro de 1994 
* Linguagem: Turbo Basic 
KEY OFF:COLOR 1,1:CLS 
COLOR 9,3 
LOCATE 2,1 
PRINT 
STRINGS (36,32);”" SORTE”; STRING$(30,32);”Ver. 
1.0 * 
LOCATE 23,2 
PRINT STRING$(16,32);”7(C) Copyright 1994 
by Alvaro V. Arcoverde 
Neto”; STRINGS (16,32) 
MenuPrincipal: 
COLOR 0,7 
LOCATE 5,6 
PRINT 
CHR$ (201); STRINGS (42,205); CHR$ (187) 
LOCATE 11,6 
PRINT 
CHR$ (200); STRINGS (42,205);CHR$ (188) 
FOR A=6 TO 10 
COLOR 7,7 
LOCATE A,7:PRINT STRINGS (42,219) 
COLOR 0,7 
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LOCATE A, 6:PRINT CHR$ (186) 
LOCATE A,49:PRINT CHRS (186) 
NEXT 
COLOR 9,3 
LOCATE 5,19 

PRINT “ Menu Principal “ 
COLOR 8,7 

LOCATE 7,8 


PRINT “1-”; STRING$(13,46);” Realizar 


sortelo da ena” 
LOCATE 8,8 


PRINT “2-”;STRING$(13,46);” Realizar 


sortelo da oto” 
LOCATE 9,8 
PRINT “3-”; STRINGS (19,46);” 
Programa” 
COLOR 9,7 
LOCATE 7,44:PRINT “5”; 
LOCATE 8,44:PRINT “L”; 
LOCATE 9,30:PRINT “F”; 
MenuMensagem: 
COLOR 0,7 
LOCATE 5,51 
PRINT 
CHRS$ (218); STRINGS (22, 196) ;CHR$(191) 
LOCATE 11,51 
PRINT 
CHRS (192); STRINGS (22, 196); CHR$ (217) 
FOR B=6 TO 10 
COLOR 7,7 
LOCATE B,52:PRINT STRING$ (22,219) 
COLOR 0,7 
LOCATE B,51:PRINT CHR$(179) 
LOCATE B,74:PRINT CHR$ (179) 
NEXT 
COLOR 9,3 
LOCATE 5,58 
PRINT “ Mensagem “ 
COLOR 11,7 
LOCATE 7,56 
PRINT “Tecle a letra em”; 
LOCATE 8,55 
PRINT “destaque da opcao”; 
LOCATE 9,55 
PRINT “escolhida ...” 
Menuôpcao: 


COLOR 0,7 
LOCATE 13,6 
PRINT 


CHR$ (218); STRINGS (67, 196); CHR$ (191) 





inalizar 
















LOCATE 21,6 
PRINT CHR$ (192); STRINGS$ (67, 196);CHR$ (217) 
FOR C=14 TO 20 


COLOR 8,7 
LOCATE 16,8 
PRINT “Digite o numero de dezenas por 

























COLOR 7,7 cartao (6-10)”; STRING$(16,46);” CJ” 
LOCATE C,7:PRINT STRINGS$ (67,219) LOCATE 16,70 

COLOR 0,7 COLOR 1,7 

LOCATE C, 6:PRINT CHR$ (179) INPUT ,0P3% 

LOCATE C,74:PRINT CHR$ (179) IF 0OP3%<6 OR 0P3%>10 THEN Opcao3 
NEXT Opcaod: 

COLOR 9,3 COLOR 8,7 







LOCATE 13,36 

PRINT “ Opcoes “; 

Opcaol: 
AS$=INKEYS 

IF A$=7S” OR A$="8” THEN 
VAR=51:0P3%=6:GOTO Opcao2 

IF A$="L” OR A$="1” THEN VAR=100:GOTO 
Opcao2 

IF A$="F” OR A$="f” THEN Finalizar 
GOTO Opcaoi 
Opcao2: 
GOSUB LimpaMensagem 
COLOR 11,7 
LOCATE 7,55 

PRINT “Digite sua opcao”; 


LOCATE 17,8 
PRINT “Dejesa gravar resultado do sortelo 
em disco (S/N)?”; STRING$(11,46);” [ 1 rá 
LOCATE 17,71 
COLOR 1,7 
INPUT ,OP4S 
IF 0P4$="8” OR OP4$="85” THEN Opcaos 
IF 0OP4$=7N” OR OP4$="n” THEN Opcao6 
GOTO Opcao4 
Opcaos5: 
COLOR 8,7 
LOCATE 18,8 
PRINT “Entre com o nome do arquivo (com 
extensao)”; STRING$(8,46);” [ Bá 
LOCATE 18,60 
















































LOCATE 8,55 COLOR 1,7 
PRINT “e tecle <ENTER>.”; INPUT ,OP5S$ 
COLOR 8,7 Opcao6: 
LOCATE 15,8 COLOR 8,7 









LOCATE 19,8 
PRINT “Dejesa imprimir resultado do 
sorteio (S/N)?”; STRINGS (18,46);” RO Rca 






PRINT “Entre com o numero de cartoes (1- 
300)?”; STRING$(21,46);” [ à Rad 
LOCATE 15,69 















COLOR 1,7 LOCATE 19,71 
INPUT ,OP2% COLOR 1,7 
IF 0P2%<1 OR 0P2%>300 THEN Opcao2 INPUT ,OP6S 
Opcao3: IF OP6$<>”"S” AND 0OP6$<>”"8” AND OP6$<>"N” 






IF VAR=51 THEN Opcao4 AND 0P6$<>”n” THEN Opcao6 











Dê uma chance ao sucesso “—AVicro 
Sistemas 


Onde está aquele super-fantástico-incrível programa que você fêz? E aquela rotina maravilhosa? Estão 
guardados numa gaveta? Ninguém, além de você, conhece esse trabalho? 

Não perca a oportunidade de mostrar o quanto você sabe sobre informática, programação, linguagens, 
processadores, etc. 

À revista Micro Sistemas é a única publicação nacional que abre espaço para trabalho feitos no Brasil. Ela 
é o único veículo editorial que publica colaborações dos seus leitores. 

Esta é a principal razão do sucesso imbatível da revista, afinal, grande parte dos profissionais com projeção 
nacional neste mercado, foram ou ainda são colaboradores da Micro Sistemas. 

Então, o que você está esperando para fazer parte deste time? 


COLABORAÇÕES: 

Você pode mandar qualquer tipo de matéria (programas, artigos, crônicas, etc). Para que seu trabalho seja 
avaliado por nossa equipe é imprescindível que: 

- OS textos, listagens, ilustrações, desenhos, etc venham em disquete 5 1/4 padrão IBM PC:. 

- Os programas devem incluir a versão compilada e exemplos (se for o caso); 

- cópia impressa do texto e das listagens: 

- autorização impressa e assinada, para a publicação do material; 

currículo do autor. 

- Envie p/ Enter Press Editora S/A - Rua Lourenço Ribeiro, 124-A - CEP 21050-510 - Rio de Janeiro - RJ 


O material enviado para a revista não será devolvido. Os autores das matérias publicadas 
receberão uma assinatura anual de Micro Sistemas. 






















'mensagem 
GOSUB LimpaMensagem 

COLOR 11,7 

LOCATE 7,53 

PRINT “Tecle <ENTER> quando”; 
LOCATE 8,53 

PRINT “estiver pronto ...” 
Espera: 
AS=INKEYS 
IF A$=CHR$ (13) THEN 

GOSUB LimpaMensagem 



















COLOR 25,7 

LOCATE 8,57 

PRINT “Aguarde ...”; 
ELSE 

GOTO Espera 
END IF 
Sorteio: 





IF 0P6$=”"S” OR 0P6$="8s” THEN 
LPRINT STRINGS (33,32);”"SORTE Ver. 1.0" 
LPRINT STRINGS$S(15,32);7(C) Copyright 1994 
by Alvaro V. Arcoverde Neto” 
LPRINT:LPRINT “*** DEZENAS SORTEADAS 
***7. LPRINT 
END IF 
IF 0P4$="S” OR OP4$="8” THEN 
OPEN “R”",H1,0P5S$, (0P2%*50)+(0P3%*50) 
END IF 
FOR F%=1 TO 0P2% 
RANDOMIZE (TIMER) 
“ge a impressao e gravacao estiverem 
lentas 
“para o seu micro, diminua O valor do 
contador X, 
“ou, elimine o laco(FOR...NEXT) seguinte 
FOR X&=1 TO 15000:NEXT 
100: 
A=INT(RND*VAR) 




























110: 
B=INT(RND*VAR) 

IF B=A THEN 110 

120: 

CaINT(RND*VAR) 

IF C=A OR C=B THEN 120 

130: 

D=INT(RND*VAR) 

TF D=A OR D=B OR D=€C THEN 130 

140: 

E=INT(RND*VAR) 

IF E=A OR E=B OR E=C OR E=D THEN 140 

150: 

F=INT(RND*VAR) 

IF F=A OR F=B OR F=C OR F=D OR F=E THEN 
150 

160: 

IF 0P3%>6 THEN 

G=INT(RND*VAR) 

TF G=A OR G=B OR G=C OR G=D OR G=E OR G=F 
THEN 160 
END IF 








































































Não Perca Tempo !!! 























Bank Soft 
Informática Ltda. 


Shareware, Jogos e Aplicativos para Micros PC/XT/AT. 
Peça já seu catálogo gratuíto pelo telefone : (011) 293-7957. 
ou pela Caixa Postal: 14.181 - Cep: 02799-970. 
Grande Promoção de Lançamento : 
Discos: 360 Kb = US$ 1,20 -- 1.2 Mb= US$1,60 -- 1.4 Mb= US$ 2,20 (Dólar Comercial). 
E ainda na compra de cada 10 discos, 






170: 

IF 0P3%>7 THEN 

H=INT(RND*VAR) 

IF H=A OR H=B OR H=€C OR H=D OR H=E OR H=F 
OR H=G THEN 170 

END IF 

180: 

IF 0P3%>8 THEN 

I=INT(RND*VAR) 

IF I=A OR I=B OR I=C OR I=D OR I=E OR 1I=F 
OR I=G OR I=H THEN 180 

END IF 

190: 

IF 0P3%>9 THEN 

J=INT(RND*VAR) 

IF J=A OR J=B OR J=C€C OR J=D OR J=E OR J=F 
OR J=G OR J=H OR J=I THEN 190 

END IF 

Imprimindo: 

IF 0P6$="S” OR 0P6$="8” THEN 

IF 0P3%<=6 THEN LPRINT F%;”"-";A;B;C;D;E;F 

IF 0P3%=7 THEN LPRINT F%;”- 
"sA;B;C;D;E;F;G 

IF 0P3%=8 THEN LPRINT F%;”- 
":A;B;C;D;E;F;G;H 

IF 0P3%=9 THEN LPRINT F%;”- 
":A;B;C;D;E;F;G;H;1I 

IF 0P3%=10 THEN LPRINT F%;”- 
".A:;B;C;D;E;F;G;H;1I;J 
END IF 
Gravando: 

IF O0P4$="S” OR OP4$="8” THEN 

IF 0P3%<=6 THEN PRINT f1,F%;”- 
".A;B;C;D;E;F 

TF 0P3%=7 THEN PRINT f1,F%;”- 
"sA;B;C;D;E;F;G 

IF 0P3%=8 THEN PRINT &1,F%;”- 
":A;B;C;D;E;F;G;H 

IF 0P3%=9 THEN PRINT É1,F%;”- 
".A;B;C;D;E;F;G;H;1I 

IF 0P3%=10 THEN PRINT &1,F%;”- 
"sA;B;C;D;E;F;G;H;1I;J 


NEXT 

IF O0P4$="S” OR 0OP4$="85” THEN PUT H1:CLOSE 
GOTO MenuPrincipal 

Finalizar: 

COLOR 7,0:CLS:COLOR 15,1 

PRINT STRING$(33,32);”SORTE Ver. 

1.0"; SPRINGS (33,32) 

SYSTEM 
LimpaMensagem: 

BEEP 
FOR D=6 TO 10 

COLOR 7,7 

LOCATE D, 52 

PRINT STRINGS (22,219) 

NEXT 
RETURN 
END 


grátis 1 cópia de 360 Kb. 





ÚLTIMAS NOVIDADES ; 


RAPTOR 2H 


FIRE & ICE 1 
No estilo do "Sonic", lindo e fantástico! 

XARGON 1H 

Excelente aventura tipo "Prince of Persia”. 

MUTANT BATS OF DOOM 1H 
Um game para os saudosos do "Galaga"! 
ZOOL 1H 
Fantástico jogo no estilo do "Sonic"! 
DUKE NUKEM II! 1H 
Sensacional sequência ao "Duke Nukem |"! 
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Colorful demo from 
Knowledge Adventure 


3-D DINOSAUR ADVENTURE 
Agora em disquetes uma das maiores 
sensações dos CD-ROM! 


Uma completa enciclopedia com fotos, 
sons « animações sobre dinossauros! 
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PAGE PLUS for WINDOWS 
Um dos nossos maiores "best-sellers"! 
Simplesmente o melhor sistema de 
desk-top pune e em shareware! 1 


E LANDS OF LORE 
EH Uma grande chance para você entrar no 
mundo dos epi games"! 4H 


OSCAR 
Similar ao "Sonic" dos video-games, 
Oscar é um excelente jogo de ação! 
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d Um jogo super emocionante! Sua mis- 
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SANGO FIGHTER 
Mais violento que "Mortal Kombat"! 


BODY BLOWS 
Muito melhor que "Street Fighter 2"! 1 + RR 


O melhor jogo espacial já criado para o PC! É 


CATACOMB ABYSS 
Um dos melhores RPG”. Todo em SD! 
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Uma super aventura num futuro sombrio! 
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HOME DESIGN for VINDOWS E 
a ala fico para paras a fds 2H . 


eta pes altgo 


ORGANIZER for WINDOWS 
A versão shareware desta famosa agenda! 1H 
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ROTINAS 





Amplie sua biblioteca de rotinas em Pascal 








Rafael Guimarães De Sá 
Ru Ss. 

Após ver o artigo de Gustavo Torquato da Silva (MS 135), 
percebi que muitos programadores de Pascal vez por outra 
necessitam de rotinas úteis e práticas. Bem, revendo minha 
biblioteca de rotinas, encontrei algumas beminteressantes. 


DESCRIÇÃO DOS PROCEDIMENTOS E FUNÇÕES 


- Funetlon Barra(Nome : String) : String; 
Se no final do PATH (Nome) não existir a barra (N), a função 
irá retomar uma string com uma barra (N) no final. 
Exemplo: WriteIn(Barra('C:NDOS)); 
Ele irá retornar: C:NDOSN 

Caso já exista a barra no final, ele simplismente retornará 
o mesmo PATH inalterado. 


- Function Percent(xPar,xTot:Real):String; 

Esta função irá retornar em uma string (no formato, por 
exemplo: 10 %) da porcentagem de xPar para xTot. 
Exemplo: Writeln(Percent(5,10)); 

Ele irá retomar: 50 % 


- Function NomeApenas(Arquivo : String) : String; 

Está função irá retornar o nome do Arquivo sem o PATH. 
Exemplo: Writein(NomeApenas('C:NDOSNUTILSADOSKEY 
EXE); 

Ele irá retornar: DOSKEY.EXE 


- Procedure CursorOff; 
Está procedure irá fazer o cursor desaparecer da tela (irá 
apagar). 


- Procedure CursorQn; 
Está procedure irá fazer o cursor reaparecer na tela. 


- Procedure CopyFile(ArgEnt,ArqSal:String); 

Está procedure irá copiar um arquivo (ArgEnt) para (ArqSai), 
o arquivo pode ser de qualquer tipo. Caso já exista o arquivo 
de destino (ArgSai) ele será apagado. 

Exemplo: CopyFile('C:NCOMMAND.COM','C:NNOVO.COM'); 


42 MICRO SISTEMAS 


Rotinas para Turbo Pascal 


Micro: PC XT/AT 

Memória: 512 Kbytes 

Vídeo: CGA/EGA/VGA 
Linguagem: Turbo Pascal 6.0 


Requisitos: Nenhum 
[EP ejpRe Do ue er ap nero ao 


- Funetlon Lower(s:String):String; 

Esta função retorna a String s em caracteres minúsculos. Os 
caracteres que já estiverem em forma minúscula e os que 
forem impossíveis de transformar (números por exemplo) 
serão mantidos. 

Exemplo: WriteIn(Lower(/ABCDEFGH"); 

Ele irá retomar: abcdefgh 


- Function Upper(s:String):String; 

Está função retorna a String s em caracteres maiúsculos. Os 
caracteres que já estiverem em forma maiúscula e os que 
forem impossíveis de transformar (números por exemplo) 
serão mantidos. 

Exemplo: Writeln(Upper('ABCDEFGH"); 

Ele irá retomar: ABCDEFGH 


- Function AutoCap(Str1 : String) : String; 

Esta função é muito interessante. Ela irá retomar uma String 
emforma “Capitalizada”, ouseja, comos primeiros caracteres 
maiúsculos e os demais minúsculos. 

Exemplo: Writein(AutoCap( RAFAEL guimarães DE SA'); 
Ele irá retomar: Rafael Guimarães De Sa 


- Procedure WrlteXY(X,Y:Integer;Str:String); 

Esta procedure irá economizar algumas linhas em seus 
programas. Ela substitui os sequintes comandos: 
GotoXY(15,10); 

Writeln( Rafael Guimarães De Sa'); 


Em vez de você digitar tudo isso, você apenas irá fazer o 
seguinte: WriteXY(15,10,'Rafael Guimarães De Sa"); 

Ele irá retornar na linha 10 e na coluna 15 a string: Rafael 
Guimarães De Sa 

As rotinas podem ser usadas individualmente, formando 
ou juntadas em uma Unit. 


RAFAEL GUIMARÃES DE SÁ estuda na oitava série do 
primeiro grau, no Colégio Milton Campos, em Belo Horizonte. 








MIS NONE 


Function Barra (Nome : 
Begin 

If Copy (Nome, Length (Nome),1)<>'1' Then 
Nome: =Nome+'1'; 

Barra: =Nome; 
End; 


String) : String; 



























Function Percent (xPar, xTot:Real):String; 

Var Lz : String; 

Begin 
Sz:=Abs (sz); 

Str(Sz,Lz); 
While Length(Lz)<xz do Insert(' “,Lz,1); 
StrEsp := Lz; 

End; 

Var 
xRet 2 : 
xRet2 : 

Begin 
If xtot = O then Begin 

XxRet1i := 0; 

xRet2 := 
Else Begin 

XxReti := 

XxRet2 := 
End; 
Percent 

End; 


Real; 
String; 


O %'; End 
(xPar/xTot )*100; 
StrEsp (Round (xRet1),3)+' %'; 


:= xRet 2; 


Function NomeApenas (Arquivo : String) : 

String; 

Var 
Str2,Strl : 


Cntl : 


String; 
Integer; 


20.EDADOS 


CONSULTÓRIO MÉDICO - Cadastro de acientes, consultas, reconsultas, 
históricos, internações, medicamentos, etc... ES 12,5 


saia DE ESTOQUE - Completo com diversos relatórios gerenciais. 


t 


CONTROLE DE ANDAMENTO DE OBRAS - (para construtoras profissionais/ 
liberais) Controle completo com cadastro de clientes /projetos/obras. Controle do 
valor dos ros, 08 vencimentos, os recebimentos e data dos mesmos 


R$ 25,00 
CONTROLE DE ANDAMENTO DE PROCESSOS - (para advogados)) cadastro 


de autor e réu, causa, comarca, audiências e leilões, pagamentos, andamento no 
Forum. R$ 25,00 


FOLHA DE PAGAMENTO - Cadastro de eppregacos: No IR/INSS, 


MENSAL 
calcula vale transporte, insalubridade, periculosidade, etc... 


LISTA DE PREÇOS - (completa) calcula de venda (preco custo - descontos 
+ impostos + frete + ld lucro Umanio automático etc... R$ 25,00 


LIVROS FISCAIS - Controle de entradas e saídas, com apuração de ICMS/IPI/ 
GIAO, emite todos os relatórios oficiais entre datas (necessita impressora com 132 
colunas). R$ 30,00 


SISTEMA DE CÁLCULO ESTRUTURAL 
centrados, sapatas, escadas etreliças. Atenção: 
R$ 25,00 

CONTROLE DE BIBLIOTECA - Controle completo de biblioteca. cadastro livros, 
revista, etc. R$12,50 

MALA DIRETA - Com cadastro por área de atuação/serviço. Imprime etiquetas por 
endereçamento selecionado por qualquer canto do arquivo. R$ 12,50 


HAMRADIO - Para radioamadores. Controle completo de QSO's com cadastro de 
End com quem você falou. Emite etiquetas para envio de cartões de QSL's 


HOMEVIDEO - Livre-se dos guias impressos. Controle você mesmos os vídeos 
assistidos. R$ 12,50 


Fone/FAX : (054) 381-1752 


igas retangulares, lajes, pilares 
sistema nãotraça os diagramas 





Function StrEsp(Sz:Integer;Xz:Byte):String; 














Begin 
Strl:=Arquivo; 
For Cnti:=Length(Stri) DownTo 
(Length (Strl)-12) Do Begin 
If Copy(Str1,Cnt1,1)='1” Then Begin 
NomeApenas:=Copy (Strl,Cnt1+1,13); 
Cntl:=Length(Strl)-12; 
End; 
End; 
End; 


Procedure CursoroOff; 

Var 
Regs : 

Begin 
Regs.ah : 
Regs.ch 
Regs.cl 


Registers; 


End; 


Procedure CursorQ0n; 
Var 
Regs 
Begin 
Regs.ah : 
Regs.ch : 
Regs.cl : 
Intr ($10,Re 
End; 


: Registers; 


nu q 


1; 
6; 
7; 
gs); 

Procedure CopyFile(ArqEnt,Arqsal:String); 
var 


FromF, ToF: file; 
NumRead, NumWritten: Word; 


Sist 


Você manda para a Enter Press Editora 
cheque nominal no valor da assinatura 
que você deseja, e recebe em sua casa, 
durante um ou dois anos, exemplares da 
revista Micro Sistemas. 


PROMOÇÃO 












R$ 45,00 
R$ 90,00 


ENTER PRESS EDITORA Ltda 
R. Lourenço Ribeiro, 124 A 

21050-510 - Rio de Janeiro - RJ 

TEL.: (021) 230-4784 

FAX: (021) 242-9981 


1 ano (12 meses) 
2 anos (24 meses) 


buf: array [1..2048] of Char; Var 
begin Str : Array[1..201] of Stringl[1]; 

Assign(FromF, ArqEnt); Cnt1 Integer; 

Reset (FromF, 1); Cp String; 

Assign(ToF,ArqSai); Begin 

Rewrite(ToF, 1); Strl:=Lower (Strl); 

repeat Cp:=""; 

BlockRead (FromF, buf, Size0Of (buf), NumRead) ; If Length(Strl)>200 Then Halt; 

BlockWrite(ToF, buf, NumRead, NumWritten); For Cnt1:=1 to Length(Strl) do Begin 

until (NumRead = 0) or (NumWritten <> Str [Cnti]:=Copy(Stri,Cntl,1); 
NumRead) ; End; 

Close (FromF) ; str [1] :=Upper (Str [1]); 

Close(ToF); For Cntl:=2 to Length(Str1l)+1 do Begin 
end; If Str [Cnt1i]=' * Then 

str [Cnt1+1] :=Upper (Str [Cnt1l+1]); 
Function Lower (s:String):String; End; 
Var For Cntl:=1 to Length(Strl) do 
Cp:=Cp+Str [Cnt1l]; 
Autocap:=Cp; 

Begin End; 

For x:=1 to Length(s) do Begin 

If Ord(sS[x]) in [65..90] Then S[x] Procedure WriteXY(X,Y: Integer;Str:String); 

Chr (Ord(s[x])+32); Begin 

End; GotoXY(X,Y); 

Lower := S; Writeln(Str); 
End; End; 


Function Upper (s:String):String; 
Var 

x : Byte; 
Begin 

If S<>' '* Then For x:=1 to Length(s) do 
S [x] :=Upcase(s[x]); 

Upper:=8s; 
End; 


Function AutoCap(Stri : String) : String; 











Possuímos um acervo com mais de 40.000 programas para toda a linha IBM-PC. Temos jogos (Apogee, Epic Megagames, 
etc..), utilitários, anti-vírus atualizados (scan, f-prot, etc...). Não trabalhamos com pirataria e sim com a nata do shareware 
mundial. Solicite nosso catálogo gratuito, de qualquer parte do Brasil. Despachamos seu pedido no máximo em 24 horas. 


Sistema de CEP 


Cadastro oficial da ECT. Permite consulta para qualquer rua do Brasil. Dado o nome 
de uma rua, você fica sabendo o bairro, cidade e cep de forma imediata. Se existirem 
mais de uma rua com o mesmo nome, serão todas apresentadas na tela. Modo 'de 
pesquisa por janelas, onde você vê todo o arquivo somente com o uso das setas. 


POSSUINDO O CADASTRO DE CLIENTES E O CEP, AO DIGITAR UM ENDEREÇO 
NO CADASTRO DE CLIENTES, O SISTEMA PREENCHE PARA VOCÊ, O 
BAIRRO, A CIDADE E O CEP. 

























O mais completo cadastro de clientes do mercado. Possuí grupo de 
classificação, data de inclusão, código (opcional), nome do cliente, 2 nomes 
de contato, referência de conceito, data de aniversário, 4 telefones com 
| descrição para cada um, 2 telefones de fax, endereço, bairro, cidade, estado, 
cep, inscrição estadual ou carteira de identidade, CGC ou CIC, controle de 
envio das cartas padrões com tipo e data de envio, campo de observações 
com tamanho máximo flexível de 65.534 caracteres. Inclui cadastro de 
cartas padrões com editor de texto integrado. Mala direta com possibildade 
de imprimir a etiqueta do remetente ao lado da etiqueta do destinatário. 
Grupos de classificação para melhor separar os tipos de clientes. 


Cadastro de Clientes 
Preço: 30 URV's 

































































10 pacotes diferentes: Preço por pacote: 30 URV's 
(1: RJ), (2: São Paulo), (3: Goiás e Brasília), (4: Bahia, Piauí), (S: Ceará, Paraíba, Rio 
Grande do Norte), (6: Alagoas, Sergipe, Pernambuco), (7: Minas Gerais, Espírito 
Santo), (8: Mato Grosso, Mato Grosso do Sul), (9: Paraná, Santa Catarina, Rio Grande 
do Sul), (10: Acre, Amazonas, Amapá, Maranhão, Pará, Rondônia, Roraima, 
Tocantins) 




























Você está cansado de fazer contas, tentando saber onde vai parar o dinheiro 
todo mês ? Colégio das crianças, alimentação, condomínio... 
Use o super prático Sistema de Despesas de Casa. Com ele 
você saberá, para que despesas foram as suas receitas. Os 
lançamentos são feitos em moeda nacional e convertidos Va 
para dólar. Possuí também Contas a Pagar « Tabela de 
Dólar. 


Despesas de CasaTSaf 
Preço: 30 URV's 





Pacote econômico com todos os estados do Brasil: 100 URV's 























Star Lights 88S - Velocidades de 1.200 à 14.400 Bps 
Todo dia das 18:00 às 09:30 Horas - (021)-255-7240. 


Pedidos pelo tel (021)-255-7240 


Stellar Informática Ltda ME - Caixa Postal 11767 - Cep 22022-970 - Rio de Janeiro - RJ 
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A PRO KIT acaba de lançar a segunda versão do curso que está 
fazendo o maior sucesso: Assembler para PC, sem sair de casa. 


O curso de programação foi planejado em 10 partes, prevendo uma 
duração de aproximadamente um ano. Neste período o aluno per- 
manece em contato (por carta) com a equipe técnica da PRO KIT, com 
o propósito de elucidar as dúvidas. 


Cada parte é remetida ao aluno que, após o estudo, deverá devolver à 
PRO KIT um pequeno teste. Este teste serve para identificar as 
possíveis áreas ainda sem entendimento e servem ainda para 
preparar 0 aluno para os assuntos que serão tratados mais à frente. 
As lições só serão remetidas após o recebimento do teste (respon- 
dido, ou não). 


Para fazer o curso é preciso ter o conhecimento mínimo indispensável 
na programação em qualquer outra linguagem: bases numéricas, 
memória, RAM, ROM, bit, byte, compilação, edição de textos, etc. O 
curso possui uma linha básica, cuja compreensão não exige muita 
experiência anterior. Dependendo do grau de dificuldade de cada 
aluno, a PRO KIT produz um APÊNDICE específico, com elucidações 
complementares. 


As dúvidas mais simples são respondidas juntamente com o envio das 
partes subsequentes. Todo o material necessário para a criação de 


Autor e orientador: RENATO DEGIOVANI 


[] Assembler em 10 lições (CGA)......... R$60,00 Nome: 

[] Assembler em 10 lições (VGA)......... R$ 100,00 Endereço: 
[] Biblioteca de rotinas para CGA......... R$30,00 CEP: 

L | Biblioteca de rotinas para VGA... R$30,00 Data: 

L] Biblioteca Super VGA 256 cores... R$30,00 Equipamento: 


Cidade: . . Dl NE 
Valor: 


O que era bom ficou 
ainda melhor! 


programas em Assembler é fornecido pela PRO KIT, inclusive a 
biblioteca de rotinas especiais, usada nos programas produzidos pela 
nossa equipe técnica. 


TÓPICOS: 


* Às principais instruções 

*- Oteciado e suas funções 

* O vídeo em modo de alta resolução 

* Menus pulidown e comandos por tabelas 
* Entrada de dados e rotinas de input 

* Manipulação de arquivos 

* Usoecontrole do mouse 

*  Aimpressão 

* Acesso irrestrito aos disquetes e HD 

* Rotinas genéricas 


O objetivo deste curso, único no mercado brasileiro, não é apenas en- 
sinar 0 uso das instruções, mas principalmente a mecânica, os tru- 
ques e macetes de se criar programas em Assembler. O curso é 
compativel com micros padrão IBM PC XT / 286 / 386 / 486. 


A PRO KIT coloca ainda à disposição dos programadores, que já pos- 
suem conhecimentos de Assembler, três discos contendo suas prin- 
cipais bibliotecas de rotinas. 


PRURKTIT 


Iniciativa: 











Cheque: Banco: 





Envie cheque nominal para PRO KIT Informática e Editora Ltda 
Caixa Postal 108.046 - Niterói / RJ - CEP 24121-970 


ROTINAS 


Proteja o acesso aos dados 








Senha 


Dirceu da Rosa Portela 


O Sistema “SENHA” foi extraído de alguns sistemas que 
venho usando com vários clientes. Embora esteja deixando 
de fora outros controles de operadores, como por exemplo 
um usuário em duas estações da rede simultaneamente, 
mensagens, e outras situações. O que lhes apresento é tão 
somente uma rotina para identificação dos operadores. 
Portanto pode e deve ser ampliado e melhorado. 

O que me levou aescolher este pequeno sistema'oio fato 
de que já tive oportunidade de conhecer vários outros que 
não permitem o uso das setas para esquerda e/ou o Back 
Space, ou seja, se errou a senha tem que comecar tudo de 
novo. Como poderão verificar no arquivo VE SENHA.PRG 
colóquei uma rotina de recepção de teclas propondo-me a 
evitar esse inconveniente. 

Diferentemente do artigo Criptografia, publicado na edição 
de número 135, não uso o comando SET COLOR TO W/N,X 
podendo o usuário (e o curioso ao lado ver o que está sendo 
digitado, sem que com isso sua senha seja revelada. Outro 
motivo foi apresentar a maneira de armazenamento das 
senhas. Trata-se de um “cálculo-só-de-ida”, pois é 
virtualmente impossível descobrir a senha do usuário mesmo 
sabendo-se a fórmula para codificação. Dessa forma a 
senha passa a ser de única responsabilidade do usuário, 
ISENTANDO INCLUSIVE O PROGRAMADOR! 

Ão se cadastrar um novo usuário, sua senha será seu 
próprio nome, até que este a altere pelo sistema. Quando 
acontece de algum usuário “esquecer” sua senha, basta 
recadastrâlo novamente, e sua senha voltará a ser seu 
próprio nome. Normalmente atribuo níveis de acesso aos 
usuários evitando que qualquer um possa cadastrar novos 
usuários e/ou excluílos. Neste caso incluí, no programa 
fonte, uma senha “IMEXÍVEL”, somente para que o sistema 
possa ser incializado. Normalmente depois de criada a 
senha do principal usuário, compilo novamente o sistema 
sem a senha “IMEXÍVEL”. 

Deve-se também usar um Arquivo Banco de Dados 
“NamPas.DBF”, o qual pode ser criado pela DBU ou pelo 
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Micro: PX XT/AT 
Memória: 512 Kbytes 
Vídeo: CGA/EGA/VGA 

Linguagem: Clipper 3.01 
Requisitos: Wincheter 


DBASE. A definição deste arquivo é a seguinte: 


Campo Tipo Tamanho Decimais 
Usuário Character 8 O 
Autenti Numeric a 10 


A senha “IMEXÍVEL” do sistema é: 


Nome: MESTRE A qual pode ser alterada no arquivo 
Senha: MASTER/ VE. SENHA.PRG 


E DIRCEU DA ROSA PORTELA é formado em Ciências 
Econômicas, pela PUCRGS. É autodidata em informática. 





ABERTURA.PRG | 


Programa: ABERTURA.PRG 
Programador: Dirceu da Rosa Portela 











LOCAL Hora, Mensagem, 

lina, LinB, ColA, ; 
ColB, Fesc, 

MyLin, ; , 5 
cMyTela, Aviso 

SET CURSOR OFF 

Limpa () 

SETCOLOR ( CorkH ) 

linA = ColA = 1 

LinB = MAXROW () - 2 

ColB = MAXCOL () - 1 

Fesc = CHR ( 219 ) 

MyLin = REPLICATE ( Fesc, ( MAXCOL 


00-39). 
e 23, 





2 SAY MyLin 







FOR K = 2 TO LinB 
GQ K, 2 SAY Fesc 

NEXT 

MyCol := SAVESCREEN ( 2, 2, LinB, 2 ) 


RESTSCREEN ( 2, ColB, LinB, ColB, MyCol ) 




















FOR K = 1 
linA++ 
LinB — 
e lina, 


e LinB, 


TO 10 


2 SAY MyLin 
2 SAY MyLin 













FOR J = 1 TO 







ColA++ 
ColB-— 
RESTSCREEN ( 2, ColA, ( MAXROW () 
- 1 ), ColA, MycCol ) 
RESTSCREEN ( 2, ColB, ( MAXROW () 
- 1 ), ColB, MyCol ) 
NEXT 
TONE ( 90, 0.01 ) 










NEXT 







fZoomIn ( 0.02 ) 
cMyTela := SAVESCREEN ( 11, 25, 13, 48 ) 
Hora := VAL ( LEFT ( TIME (), 2) ) 
SETCOLOR ( CorcC ) 

SCROLL ( 11, 25, 13, 48, 0 ) 

e 11, 25 TO 13, 48 

SET ESCAPE OFF 














DO CASE 
CASE Hora > 18 
Mensagem := “Boa Noite “ 
CASE Hora > 11 










Mensagem := “Boa Tarde “ 
CASE Hora > 3 

Mensagem := “Bom Dia “ 
OTHERWISE 

Mensagem := “Boa Noite “ 






ENDCASE 





G 12,27 SAY Mensagem + LTRIM ( UserName ) 
AE Sl 






TONE ( 200, 0.3 ) 
TONE ( 400, 0.1 ) 
TONE ( 300, 0.5 ) 
INKEY ( 2) 

TONE ( 400, 0.1 


SETCOLOR ( CorH 
RESTSCREEN ( 11, 25, 13, 48, cMyTela ) 
fZoomOut ( 0.06 ) 

raso := REPLICATE ( “ “, MAXCOL () - 2 
lina := 12 
LinB = 13 
















FOR K = 1 TO 10 
linA++ 
LinB—- 
G linA,02 SAY Aviso 
G LinB,02 SAY Aviso 
TONE ( 90, 0.01 ) 
NEXT 
RETURN 










PROCEDURE fZoomIn ( Tempo 











Janela 02, 02, 04, 04, Tempo 











( ) 
Janela ( 04, 05, 06, 09, Tempo ) 
Janela ( 05, 09, 08, 15, Tempo ) 
Janela ( 07, 13, 10, 25, Tempo ) 
Janela ( 09, 15, 11, 35, Tempo ) 
RETURN 





PROCEDURE 





LIVRARIA 


SAM 


CIENCIA NOVA 





Janela 09, 1d; Tempo 
Janela 07, 10, Tempo 
Janela 05, 08, Tempo 
Janela 04, 06, Tempo 
Janela 02, 04, Tempo 
RETURN 


PROCEDURE Janela ( TopLin, TopCol, 
BotLin, BotCol, Tempo ) // 


LOCAL cTela 

cTela := SAVESCREEN ( TopLin, TopCol, 
BotLin, BotCol ) 

SCROLL ( TopLin, TopCol, 
BotLin, BotCol, O ) 

INKEY ( Tempo 

) 

RESTSCREEN ( TopLin, TopCol, 
BotLin, BotCol, cTela ) 

RETURN 


Programa: MENU.PRG 
Programador: Dirceu da Rosa Portela 
NHILE ( .T. ) 

READINSERT ( .F. ) 

Limpa () 

SET SCOREBOARD OFF 

SET ESCAPE OFF 

SCROLL ( 02, 02, 04, 78, 0) 

e 02, 02 TO 04, 78 





é 03,04 PROMPT “ Alterar Senha “ 
MESSAGE “Alterar sua Senha” 


Q 03,24 PROMPT “ Incluir “ MES - 
SAGE “Cadastrar um Novo Usuario” 

G 03,39 PROMPT “ Excluir “ MES - 
SAGE “Excluir um Usuario” 

& 03,54 PROMPT “ Consultar “ MES - 
SAGE “Consulta os Usuarios” 

& 03,70 PROMPT “ Final “ MES - 


SAGE “Finaliza o Sistema” 
MENU TO Opcao 
SET ESCAPE ON 


DO CASE 

CASE Opcao = 1 

DO Altera 

CASE Opcao = 2 

DO Inclui 

CASE Opcao = 3 

Cancela () 

CASE Opcao = 4 
Consulta () 

CASE Opcao = 5 
IF £Conf () 
RETURN 


DiciJor-tolar- Tagore MoFAtoTo [o NON =ig-EII 
Remessas feitas por reembolso Postal 
Rn Rs e pe e 

















ENDIF 
ENDCASE 
ENDDO 


PROCEDURE Consulta // 


PRIVATE VsUserCamp [1], VsUserCabe [1], 
VsUserPict [1] 
VeUserCamp [1] 
VsUserCabe [1] 
VsUserPict [1) 
SETCOLOR ( CorG 
É 5, 27 TO 21, 43 DOUBLE 

Go TOP 

DBEDIT ( 6, 28, 20, 42, VesUserCamp, , 
VeUserPict, VsUserCabe, “-”, “1”, 0, 0) 
RETURN 


“Usuario” 
“Usuario “” 


sem 


nm 



































PROCEDURE Cancela // 


LOCAL MyTela 
WHILE ( .T. ) 
SETCOLOR ( CorG ) 


MyTela s= CabeTel ( “Exclusoes de 
Usuarios” ) 
MySelf 


:= ALLTRIM ( UserName ) 
cNewUser  := SPACE ( LEN ( Username 


)) 





É 10, 5 SAY “Nome do Usuario:” 
& 10, 23 GET cNewlser PICTURE “GG!” 
READ 





IF LASTKREY () = 27 
RETURN 
ENDIF 
cNewUser := FBrancos ( cNewlser |) 
IF ALLTRIM ( cNewUser ) = MainUser 
«OR. cNewUser = MySelf 
fAvisa ( 4) 
TONE ( 300, 5 ) 
INREY ( 0 ) 
£fDesBox () 
LOOP 
ENDIF 
IF !DBSEEK ( cNewUser ) 
TONE ( 300, 5 ) 
fAvisa ( 1) 
INKEY ( O ) 
LOOP 
ENDIF 
IF !fConf () 
LOOP 
ENDIF 
RESTORE SCREEN FROM MyTela 





DELETE 
ENDDO 


VE SENHA.PRG 


Programa: VE SENHA.PRG 
Programador: Dirceu da Rosa Portela 
LOCAL M, A, 8, T, E,; 
R, Col, TecVolta, TecHome, PraCima,; 
GETSYS := () 


nLTecla, Abandonou 
UserName, MainUser, MainPass, MyPass,  PassTryed 


M = 77 

A := 65 // Artificio para 
que a senha nao seja ldentificada 

s := 83 // pelo PCTOOLS ou 
NORTON no arquivo executavel 

P := 84 
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E := 69 

R := 82 

MainUser  := CHR (M) + CHR (E) + CHR (8) + 
CHR (T) + CHR (R) + CHR (E) //MESTRE 
MainPass  := CHR (M) + CHR (A) + CHR (8) + 
CHR (T) + CHR (E) + CHR (R) //MASTER 
TecVolta := CHR ( 8 ) + CHR ( 127 ) + CHR 
( 19 ) + CHR ( 26 ) 

/| Bk Space Ctrl Bk Space 

<- Ctrl <- 

TecHome := CHR ( 1) + CHR ( 29.) 

/[ Home Ctrl Home 

SELECT 1 

USE NAMPAS 


IF IFILE ( “NAMPAS.NTX” ) 
INDEX ON Usuario TO NAMPAS 

ENDIF 

SET INDEX TO NAMPAS 


UserName  := MyPass := cMyPass := 
SPACE ( 8B ) 

PassTryed := 1 

Abandonou := ( .F. ) 


SET CURSOR ON 

SET COLOR TO 

TONE ( 950, 0.1) 

SETCOLOR ( “W/N,W/N,N,,W/N” ) 
SCROLL ( 3, 06, 09, 44, 0) 


a 3,06 TO 09,44 DOUBLE 
a 5,08 SAY “Seu Nome:” 
e 7,08 SAY “Sua Senha:” 


BEGIN SEQUENCE 
WHILE ( .T. ) 
PraCima = (..F. ) 
UserName  := MyPass  := SPACE ( 
8 ) 


Ga 7, 20 SAY Mypass 

Q 5, 20 GET UserName PICTURE 
“a” 

READ 


IF LASTKEY () = 27 
Abandonou s= ( .T.) 
BREAK 

ENDIF 


/* 





Rotina para recepcao das teclas 
da senha do usuario. */ 


Col := 20 
WHILE ( Col > 19 ) .AND. ( Col 
< 28 ) 
SETPOS ( 7, Col ) 
nLTecla = INKEY ( 0 ) 
IF nLTecla = 27 
Abandonou = (.T.) 
BREAK 
ENDIF 
IF nLTecla = 13 
EXIT 
ENDIF 
IF nLTecla = 5 
PraCima := ( .T. ) 
GQ 7, 20 SAY SPACE ( 8 


EXIT 
ENDIF 
IF CHR ( nLTecla ) $ 
TecVolta 
IF Col <= 20 





Você continua enrolado? 





MONTE SEU PRÓPRIO AT 286, 386 OU 486. 
APRENDA VÁRIAS DICAS DE COMO TIRAR UM MELHOR 
PROVEITO DOS RECURSOS DO SEU MICROCOMPUTADOR. 

Com os livros do Eng. LAÉRCIO VASCONCELOS 





NR MONTAR, CONFIGURAR E EXPANDIR SEU AT 386/486 


Agora a venda também nas principais livrarias de Informática de São Paulo:BOOKWARE, LITEC E CULTURA. 
Estamos cadastrando livrarias e revendas em todo o Brasil. 

Aborda: Montagem de XT e AT 286, 386SX, 386DX e 486. Fontes, gabinetes, NO-BREAKS, estabilizadores, aterramento, DRIVES, placas de vídeo e monitores 
CGA, HERCULES, EGA, VGA, e SUPER VGA. Placas MULTI-VO, IOSA, UDC e IDEPLUS. Placas de CPU, expansão de memória, instalação de memória 
CACHE, uso de memória ESTENDIDA e EXPANDIDA, SHADOW RAM, SETUP, STRAPS, WINCHESTER, conversão de XT em AT, conversão de 286 em 386 
e 486, co-processador aritmético, instalação de MOUSE, MODEM/FAX, SCANNER, SOUND BLASTER, etc. 


“IBM PC: DICAS E MACETES DE SOFTWARE VOL. 1 


Centenas de DICAS para você usar melhor o seu PCIII 

Você nunca viu tantas informações úteis sobre SOFTWARE em um único livro. A cada página é encontrada uma dica que pode ser imediatamente aplicada ao seu 
computador, resultando em maior velocidade, produtividade, segurança e facilidade de uso. E mais: Cópias de disquetes protegidos, uso de MEMÓRIA 
ESTENDIDA, EXPANDIDA, EMS, XMS, HMA, UMB, compactadores de arquivos, recuperação de discos formatados e arquivos apagados, programas gráficos, 
proteção do computador em nível de software, teste da CPU, de WINCHESTER e da placa de vídeo, comandos úteis do DOS, como criar da melhor forma seus 
arquivos AUTOEXEC.BAT e CONFIG.SYS. E mais dezenas de outras dicas. 


oh 


'IBM PC: DICAS E MACETES DE SOFTWARE VOL. 2 





E 


Aprenda mais outras DICAS muito úteis que O ajudarão a esclarecer suas dúvidas. 
Mais dicas para você tirar o máximo proveito do seu micro. Fique por dentro das novidades do MS-DOS 6, saiba como acelerar o desempenho do 
WINCHESTER, dos DRIVES e do CD-ROM, usar a memória, recuperar arquivos apagados, melhorar os arquivos BATCH, duplicar a capacidade do winchester, 


editar trilhas e setores, BACKUP, programas gráficos, animações gráficas, comunicação de dados, ANTI-VÍRUS, acentuação, miscelânea de dicas e macetes e 
muitas outras grandes utilidades. 





SOFTWARE DE DOMÍNIO PÚBLICO E SHAREWARE 


SOLICITE NOSSO CATÁLOGO GRATUITAMENTE E VEJA AS VANTAGENS DOS NOSSOS PROGRAMAS: 

1) São todos compactados com o popular compactador PKZIP, o que reduz o tamanho e o custo para os clientes. 

2) São fomecidos em disquetes novos e de BOA QUALIDADE. 

3) São todos acompanhados de um arquivo LAERCIO.DOC que traz as instruções para a instalação e sua imediata utilização. 

4) São todos testados e homologados pela nossa equipe técnica. | 

5) A maior vantagem: são cobrados por tamanho, e não por disco. Enquanto outras empresas cobram 3 discos por 3 programas de 120 KB, nós cobramos por 
apenas um único disco de 360 KB com os três programas juntos. 





Indique os livros desejados Recorte, preencha e envie para: 












: |() Estou enviando cheque nominal ao autor, Laércio Vasconcelos Laércio Vasconcelos 
( ) Desejo receber o catálogo de programas CAIXA POSTAL 4391, CEP 20.001-970 Rio de Janeiro, RJ 







Preços em REAL: Nome: 
COMO MONTAR, CONFIGURAR E EXPANDIR SEU AT 386/486 ( ) 27,50 REAIS endereço: 
IBM PC: DICAS E MACETES DE SOFTWARE VOL. 1 () 23,75 REAIS Cidade: CEP: 
IBM PC; DICAS E MACETES DE SOFTWARE VOL. 2 ( ) 27,50 REAIS Telefone: 
Para sua segurança, envie em carta registrada. 





























Col sa 
LOOP 
ENDIF 
Col— 
MyPass 
Mypass, ( Col - 19 ), 1, 
Q 7, “su 
LOOP 
ENDIF 
IF CHR ( nLTecla ) $ TecHome 
MyPass := SPACE ( 8) 
' Col = 20 
GQ 7, 20 SAY Mypass 
LOOP 
ENDIF 


MyPass := STUFF ( 


Mypass, ( Col - 19 ), 1, CHR ( nLTecla ) ) 
e 7, Col SAY “%” | 
Col++ 


ENDDO 
IF PraCima 
LOOP 
ENDIF 
MyPass := UPPER ( MyPass ) 
IF !fChkPass ( GMyPass, ( .T. )) 
LOOP 
ENDIF 
EXIT 
ENDDO 
END 
SETCOLOR ( CordoDos ) 
RESTORE SCREEN FROM TeladoDos 
IF Abandonou 
SETPOS ( LindoDos, 79 ) 
QUIT 
ENDIF 
RETURN 





Sistóe 


Você manda para a Enter Press Editora 
cheque nominal no valor da assinatura 
que você deseja, e recebe em sua casa, 
durante um ou dois anos, exemplares da 


revista Micro Sistemas. 


PROMOÇÃO 
1 ano (12 meses) 
2 anos (24 meses) 


R$ 45,00 
R$ 90,00 


ENTER PRESS EDITORA Ltda | 
R. Lourenço Ribeiro, 124 A 

21050-510 - Rio de Janeiro - RJ 

TEL.: (021) 230-4784 

FAX: (021) 242-9981 












Programa: SENHA. PRG 

ROTINA PRINCIPAL 

Programador: Dirceu da Rosa Portela 

SET WRAP ON 

SET EXACT ON 

SET DELETE ON 

SET MESSAGE TO ( MAXROW () - 1 ) CENTER 
SET EXCLUSIVE ON 





CordoDOS = SETCOLOR () 
LindoDos := ROW () 
SAVE SCREEN TO TeladoDOS 

















PUBLIC VtAviso [4] 
diversas ao usuario 

VtAviso [ 1] “Usuario nao Cadastrado” 
“VtAviso [ 2] “Senha não aceita” 
vtAviso [ 3] “Uso impossível” 


VtAviso [ 4] “Nome Invalido” 


// Mensagens 


nn mu 












// Variaveis Publicas 


cMyTela := cMyPass := MyTela := 
MySenha := SPACE ( 1) 
PassTryed := 0 











Rd Say , Get |, Borda , 
otrGet Cores do Sistema */ 
CorAÃ = “R /B , N í/ W+, B” 

// Barra Vermelha dos Avisos 

CorcC g=“U / R No /R, BÃ,, N 


/GR+” // Memos e Abertura 
CorF = “*W / B No o/W” 
// Avisos 


CorG = ]W /Bo o, N /W+, 





NOME: 
ENDEREÇO: 


EQUIPAMENTO.: 


PROFISSÃO: 
CHEQUE No.: 
OBS: 


Assinatura 


Desejo receber da ENTER PRESS EDITORA 
Ltda., uma assinatura de [ Jt[ ]J2 anos da 
revista Micro Sistemas. 





NÃO PERCA 
ESTA PROMOÇÃO: 
40% de desconto 


Na compra do GRAPHOS Ill e mais um jogo você ganha 40% de 
desconto no valor total do pedido e recebe ainda, inteiramente grátis, o 
PRO KIT topview para fazer as incríveis animações da seção Bitmap. 








Aventura e mistério no 


Forme um grupo de jogadores, pois a 
PRO KIT está lançando sua mais 
fantástica aventura no reino dos jogos in- 
teligentes: um autêntico RPG para com- 
putadores. 

O mestre cria os cenários onde 
acontecerão as missões e os jogadores 
são colocados frente às mais diversas 
situações. Ao terminar uma partida, o 
mestre avalia o desempenho do jogador 
8, se for 0 caso, concede-lhe um talismã 
de força e conhecimento, que poderá ser 
usado nas próximas missões. 

Os jogadores podem até mesmo juntar 
suas forças para vencer uma missão mais 
complexa ou para combater um guardião 
mais poderoso. 

Às missões podem ser simples ou pos- 
suir diversos níveis de dificuldade, com 
inúmeros perigos, armadilhas, guardiães 
e a temível aparição WAHAMEC - um ser 
etáreo que busca materializar-se em 
nosso universo. 








WS 


À criação das missões é extremamente 
simples e totalmente comandada por 
icones. O mestre pode visualizar cada 
uma das salas do subterrâneo e 
selecionar até mesmo o tipo de parede 
que as formam. 

Ão preparar um cenário, o mestre dá a 
cada jogador um disco contendo todo o 
sistema responsável pelo jogo. Ao ter- 
minar a missão, o jogador devolve o disco 
para a sua avaliação e então recebe uma 
palavra mágica, que contém todo o seu 
conhecimento e força. 

Requisitos: 
PC 286/386 - VGA 256Kb - A: 1.2Mb - mouse 








ERRAR o pi mr 


APENAS COMEÇANDO 


Renato Degiovani 


A AVENTURA ESTÁ 


Prepare-se para uma incrível aventura no espaço, 
em busca de um pequeno planeta azul. O Nautilus é um jogo de estratégia, que irá 
colocar em teste sua habilidade no comando de uma espaçonave. 


Características da nave: 
Controles por mouse 
Tela de informações 
Diário de bordo 
Sistemas de análise 


Requisitos: 


Torpedos fotônicos e phasers PC 286/386 - VGA 256Kb - A: 1.2Mb - MS mouse 


Velocidade WARP 
Botão de autodestruição 


[ ] Nautilus 


R$ 25,00 














versão 5.0 


Totalmente escrito em Assembler, o 
GRAPHOS III é o mais rápido editor para 
o PC e um dos poucos que não exige 
megas e megas de memória para ser ex- 
ecutado. Tudo nele é simples e fácil de 
usar, 

Além dos recursos tradicionais de edição gráfica, tais como linhas, retângulos, raios, 
círculos, fill, spray, inversão, rotação, espelhamento, etc, o GRAPHOS IIl possui ainda 
ferramentas especiais para corte e duplicação de pedaços da tela, zoom para 
correções delicadas nos desenhos, troca de atributos e uma nova ferramenta para uso 
com os padrões gráficos pré-definidos. 

À grande novidade desta versão é o arquivo Clipboard, que pode manipular até 180 
telas. Essas telas podem ser posteriormente compactadas num único arquivo e integrar 
um sistema de slide show simples e fácil de programar. É possível controlar o tipo de 
efeito especial que será usado para mostrar a tela, o tempo que ela permanecerá 
mostrada e até mesmo associar uma tecla a cada tela. O sistema pode criar um 
programa executável, para o slide show, que independe do GRAPHOS III para fun- 
cionar. 

O editor de alfabetos permite que o usuário crie e edite alfabetos proporcionais, com 
2 pixels de altura até 16 pixels. Novos recursos de clipping e captura gráfica aumentam 
consideravelmente o poder dos editores de padrões e de alfabetos. 

À edição da palette está mais simples ainda. Com poucos comandos do mouse é 
possível alterar as intensidades de RGB de cada cor. Além disso, é possível controlar a 
intensidade (claro/escuro) das cores e calcular o tom de cinza correspondente da cor. 

O programa GRAPHOS Ill ainda permite que se grave ou recupere arquivos no for- 
mato TIFF, não compactado, com definição de cores. 












Requisitos: 
PC 286/386 - VGA 256Kb - À: 1.2Mb - MS mouse 


L] Graphos Ill (versão 5.0)... mms R$ 72,00 


AfAnLLONIARs 


O mais tradicional Adventure escrito em português. Dez anos de sucesso. 


L] Amazônia (CGA / VGA). temem 








Seus nervos serão testados ao extremo neste sen- 
sacional adventure gráfico. Sangue frio e inteligência 
são os requisitos básicos para salvar o Brasil de um 
grave acidente nuclear. 

Requisitos: 
PC 286/386 - VGA 256KbD - A: 1.2Mb 


À mais nova sensação da revista Micro no monitor, macetes de criação usando o 
Sistemas agora em disquete, especial. GRAPHOS III, e muito mais. 


mente para VGA. Todos os shapes da Disponível no BBS Século 21 - RIO 


galeria de arte, os roteiros de animação, ; 
os Ícones, programas shareware, etc, (021) 5216947 - Download livre 


numa estrutura gráfica interativa (como po 2867386 - VGA 256Kb - A: 1.2Mb- mouse 
num livro digital). 
Dicas e truques para obter mais cores [] Bitmap &1................... R$ 6,00 





Envie cheque nominal para PRO KIT Informática e Editora Ltda 


Caixa Postal 108.046 - Niterói/RJ - CEP 24121-970 






/GR+” // Janelas e Gets 
CorH = “ GR+/ B NO /W, B” 
/! Abertura | 


NOSNOW ( .T. ) 


DO VE SENHA 
DO ABERTURA 
DO MENU 


SET CURSOR ON 

SETCOLOR ( CordoDos ) 

RESTORE SCREEN FROM TeladoDos 
SETPOS ( LindoDos, 79 ) 

QUIT 


FUNCTION fChkpass ( cMyPass, Retkey ) //— 





UserName  := FBrancos ( UserName ) 
cMyPass := FBrancos ( cMyPass ) 
PassTryed := PassTryed * 10 


IF ALLTRIM ( UserName ) = MainUser .AND. 
ALLTRIM ( MyPass ) = MainPass 
RETURN ( .T. ) 
ENDIF 
IF IDBSEEK  ( UserName ) 
TONE ( 950, 0.1 ) 
INKEY ( PassTryed ) 
RETURN ( .F. ) 


ENDIF 

IF Autenti = fCalcPass ( cMyPass ) 
PassTryed := 1 
RETURN ( .T. ) 

ENDIF 


TONE ( 950, 5 ) 

INKEY ( PassTryed ) 

cMyPass s= SPACE ( LEN ( cMyPass ) ) 
RETURN ( .F. ) 


FUNCTION fCalcPass ( CcMyPass ) // 


LOCAL Toa, Pala, J, 
I 


SET DECIMALS TO 9 
CcMyPass := ALLTRIM ( CcMyPass ) 


Toa := LEN ( CcMyPass ) 

Pala = 0 

J := Toa + 2 

FOR I = 1 TO Toa 
J++ 


Pala := Pala + ( JU + LOG ( ASC(( 
SUBSTR ( CcMyPass, I, 1)))5) 
NEXT 
RETURN ( ROUND ( ( Pala * 18.12345 ) * ( 
1/( 22/7)), 8 )) 


FUNCTION fBrancos ( VarToClean ) // 


// Joga todos os caracteres a direita e 
retira os zeros a esquerda 


LOCAL a p Compa 
:= LEN ( VarToClean ) 


| 
VarToClean := ALLTRIM ( VarToClean ) 
Compa em LEN ( VarToClean ) 
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PROCEDURE fAvisa ( Ner ) // 


FOR 1 = i TO Compa 
IF SUBSTR ( VarToClean, à, 1) = “07 
VarToClean := STUFF ( VarToClean, 


ALLTRIM ( VarToClean ) 
LEN ( VarToClean ) 
( ) - Compa ) + VarToClean 


VarToClean |: 
Compa $ 
RETURN ( SPACE 
) 


FUNCTION fConf // 








// Funcao para pedir a confirmacao do 
usuario 
LOCAL Cnf s= SPACE ( 1) 
SETCOLOR ( CorG ) 

fDesBox () 


TONE ( 400, 0.1) 
TONE ( 300, 0.5 ) 


Q (MAXROW ()- 1),3 SAY “Confirma: (S/N) “ 
GET Cnf PICTURE “!” VALID Cnf $ “SN” 
READ 


TONE ( 500, 0.03 ) 

cnf := IF ( LASTKEY () = 27, “N”, Cnf ) 
RETURN ( IF ( Cnf = “8”, (.T. ), ( .F.) 
)) 





// Envia mensagem na linha inferlor da 
Tela 


LOCAL OldCorAvs 


fDesBox () 

OldCorAvs := SETCOLOR () 

SETCOLOR ( CorG ) 

QG ( MAXROW () - 1), 2 SAY REPLICATE (A 
“, ( MAXCOL () - 2) 

6 ( MAXROW () - 1), 2 SAY “Aviso: “ 
SETCOLOR ( CorA ) 

G ( MAXROW () - 1 ), 8 SAY REPLICATE ( “- 
mr, ( MAXCOL () - 8 ) ) 
SETCOLOR ( CorF ) 

G ( MAXROW () - 1), 
SETCOLOR ( OldCorAvs 
RETURN 


SAY VtAviso [Ner] 


tu O 


PROCEDURE fDesBox // 





// Limpa aviso enviado pela funcao fAvisa 
e outros 


SETCOLOR ( CorG ) 

q ( MAXROW () - 1 ), 02 SAY REPLICATE ( “ 
“, ( MAXCOL () - 2 )) 

RETURN 


FUNCTION CabeTel ( MeuProg ) // 





// Fundo de Tela Base para Digitacao 
LOCAL MyTela 


SAVE SCREEN TO MyTela 
SCROLL ( 6, 3, ( MAXROW () - 3 ), ( 


MAXCOL () - 2), 0) 
e 6, 3 TO ( MAXROWN () - 3), « 


MAXCOL () - 2) DOUBLE Programa: ALTERA. PRG 

fCentra ( 7, MeuProg ) Programador: Dirceu da Rosa Portela 
LOCAL MyTela 

SET SCOREBOARD ON WHILE ( .T. ) 

SET CURSOR ON SETCOLOR ( CorG ) 

RETURN ( MyTela ) MyTela := CabeTel ( “Alterar Senha” 
) 

FUNCTION Limpa // cOldPass := cNewPassA := cNewPassB := 
SPACE ( LEN ( MyPass ) ) 





ALTERA.PRG 


SETCOLOR ( CorG ) & 11, 5 SAY “Digite sua Senha:” 

CLS e 13, 5 SAY “Digite sua nova Senha:” 
q 01, 01 TO MAXROW (), MAXCOL () G 15, 5 SAY “Redigite sua nova 
RETURN ( fCentra ( 1, “Sistema de Senhas” Senha:” 

)) 

SETCOLOR ( “W/N, W/W, , , N/N” ) 
PROCEDURE fCentra ( Clin, Centra ) // 


G 11,31 GET cOldPass PICTURE “GI” 








// Centraliza no Centro da Linha no Moni- VALID fAltPass ( GcoldPass, ( .F. )) 
tor & 13,31 GET cNewPassA PICTURE “Q!” 
G 15,31 GET cNewPassB PICTURE “0!” 
G Clin, ( MAXCOL () - LEN ( Centra ) ) /2 READ 
SAY Centra 
RETURN IF LASTKREY () = 27 
EXIT 
ENDIF 
cNewPassA := FBrancos ( cNewPassA ) 
INIGEB|RANE cNewPassB := FBrancos ( cNewPassB ) 
Programa: INCLUI.PRG IF cNewPassA |I= cNewPassB 
Programador: Dirceu da Rosa Portela SETCOLOR ( CorG ) 
LOCAL MyTela fAvisa ( 2) 
WHILE ( .T. ) TONE ( 300, 5 ) 
SETCOLOR ( CorG ) pa ( 0) 
MyTela :» CabeTel ( “Cadastramento ENDIP 
de Usuarios” ) IP I£Conf () 
cNewUser := SPACE ( LEN ( Username ) RETURN 
ENDIF 
e 10, “ ; u MyPass := cNewPassA 
e o a Em Es eds “a” REPLACE Autenti WITH fCalcPases ( 
VALID fVazio ( cNewUser, 4 ) MyPass ) 
READ RETURN 
IF LASTREY () = 27 ENDDO 
E STATIC FUNCTION fAltPass ( cMyPass, 
IF !fConf () RetKey ) // 
o UserName := FBrancos ( UserName ) 
RESTORE SCREEN FROM MyTela IF ( ALLTRIM ( UserName ) ) = ( MainUser 
cNewlser := FBrancos ( cNewUser ) ) 
IF IDBSEEK ( cNewUser ) RETURN ( .F. ) 
APPEND BLANK ENDIF 
ENDIF cMyPass := FBrancos ( cMyPass ) 
REPLACE Usuario WITH cNewlser PassTryed := PassTryed * 10 
IF Autenti == 0 IF IDBSEEK ( UserName ) 
REPLACE Autenti WITH ( TONE ( 950, 0.1 y 
fCalcPass ( cNewUser ) ) INKEY ( PassTryed ) 
ENDIF cMyPass := SPACE ( LEN ( cMyPass ) 


ENDDO ) 


STATIC FUNCTION fVazio ( cNewiser, Ner ) / RETURN ( .F.) 
/ ENDIF 


fDesBox () IF Autenti = fCalcPass ( cMyPass ) 


cNewUser := FBrancos ( cNewUser ) PassTryed := 1 
IF EMPTY (cNewUser) .OR. cNewUser = RETURN ( .T. ) 


ENDIF 
UserName .OR. ALLTRIM (cNewlser) = 
MainUser TONE ( 950, 5 ) 


TONE ( 300, 5 ) INREY ( PassTryed ) 
fAvisa ( Ner ) cMyPass := cNewPassA := cNewPassB := 
SPACE ( LEN ( cMyPass ) ) 
RETURN ( .F. ) E 
ENDIF TURN ( .F. ) 


RETURN ( .T. ) 
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CLASSIC SOFT TEL/FAX (011) 875-4644 


RUA JOÃO CORDEIRO, 495 - FREGUESIA DO Ó - SÃO PAULO - CAPITAL - CEP 02960-000 


FAÇA SEU PEDIDO: Por telefone, fax ou carta. PROMOÇÕES PC 

FORMAS DE PAGAMENTO: 10 Jogos ou aplic. ganhe um grátis c/ disco. 
A) SEDEX à cobrar, você só pagará quando retirar o pedido no correio da sua cidade. 50 Jogos ou aplic. ganhe 10 grátis c/ disco 
(Lembramos que os serviços dos correios são caríssimos) 

E, CHEQUE NOMINAL À CLASSIC SOFT LTDA,, para sua comodidade e economia recomendamos fazer 0 
pedido por cheque nominal pois você recebe seu pedido em casa. 

C) DEPÓSITO BANCÁRIO: Unibanco - ag. 137 - conta 113 444-4 em nome de Classic Soft 
Bradesco - ag 117-1 - conta 98741-7 em nome de Classic Soft - enviando xerox do depósito junto ao pecádo. 
DESPESAS POST AIS: (Registrada) pedidos até 18 discos..... R$2,80 (Preço somente para pagamento em cheque 














DISCO 5 1/4 HD C/GRAV........ coeso R$ 2,00 
DISCG 5 1/4 DD C/ GRAV............... R$ 1,50 
PARA COMPRA ACIMA DE 20 DISCOS 
PAGAMENTO EM DUAS VEZES: 

metacs no ato, metade para 15 dias após. 











APLICATIVOS DE DOMÍNIO PUBLICO E SHAREWARE PARA PC/XT/AT 


ii RARAS g ARA WINDOW: AO910 4DD ANSI PAINT - editor grafico, usa tabela asc. AOB79 1DD CHART - programa para engenharia eletrica. 

E SNS ae e Ri AO908 SDD CHARTS UNLIMITED - Integra graficos « texto. AH909 1HD EASE CASE 1.67 - software de engenharia. 

AO907 10D FINGER MAPS 1.01 - edita mapas com dados » Informações. AOB7T8 1DD NET WGAK - criação e analise de clrcultos eletronicos. 
AO906 1DD FINGER PAINT 2.0 - editor grafico facil uso, otimo. AH877 HD PSPIGE - simulador de circulto eletronico. 

AO9oS 1DD FINGER VGA - processador de imagens, pinta e anima. RESISTOR COLOR(ega) Ps de resistor, emcjos em Ohms. 
AO903 2DD FLOW DRAW 2.2 - aditor de fluxo gramas, mapas ... novoll E voa 
AOgo? 1DD HI-RES RAIMBOW - editor grafico. (oga) 

AO901 10D LEONARDO (cga) + aditor grafico c/ contrução de sides. 
AO900 1DD MAC PASTE 2.10 - editor grafico, otimo. 

AOB98 1DD PAINTERS APPRENTICE - facil uso, ferramenta p/ pintar. 
AHB99 1HMD PAINT BOX - editor grafico. 

AO897 100 PARTY DOT - gerador de desenhos amísticos. 

100 PCART : 4 legal - asd ade do facil uso. 
































W0252 1DD ABOVE & BEYQUND - administra informações pessoais. 

W0239 1DD ANIMATE FOR WINDOWS - Imagens animadas. 

w0238 1D0D ASTRONOMY CLOCK - horas astronômicas e mundiais. 

WH253 1HD ASTRONOMY LAB - gera eventos astronômicos simultâneos. 

WO270 1DD BANG BANG - Jogo de estratégia para 2 jogadoras. 

W0237 1DD BIZ WIZ - calculadora financeira. 

WH230 I1HD BMP COLECTICN 1 - pacote de telas BMP. 

WH231 1HD BMP COLECTION 2 - mais telas. 

W0268 1DD BODFCA WINDOWS - Jogo de raciocínio com palavras. 

Ww0254 100 BOXPLOT - calcula a frequência de resposta do falante. 

W0255 1DD BUILDER - cria icones para documentos. 

WhH264 1D0D CAD VANTAGE - poderoso cad para windows. 

W0236 1DD CHEMICAL FOR WINDOWS - modelo de moléculas em 3d. 

AMB20 HD EXPLOSIV WINDOWS/DOS - fontes graficas p/ monitor. 

W0240 1DD FINANCIER PLUS - organiza orçamentos, financiamentos ... 

w0256 1DD FRACTAL PAINT - programa interativo p/ projetos graficos 

W0269 1DD GAME COLECTION 1 - três jogos de raciocínio tipo tetris. 

W0235 1DD GIF2 BMP- convarte telas .GIF para .BMP. 

W0234 1DD HP CALCULATCR - calculadora HP para windows. 

WH258 1HD INCONTACT - completo administrador de contatos. 

WH265 2H0 INSIDE COREL DRAW - vários utilitários para windows. 

W0233 10D IQTESTFO WINDOWS - teste de QI. 

W0259 1DD LASER TAME - utilitário para Impressoras à laser. 

Wo260 10D MATAGRAF V2.4 - gera curvas matematicas. 

w0262 1DD METRIG CONVERTER - conversor de madidas métricas. 

WH261 1HD MICRG LINK - pacote de comunicação para modem, 

W0263 1DD MONEY SMITH - controls seus talões de cheque. 

W0232 1DD MY CATS - gato que fica caçando o cursor. 

W0245 1DD PAINT SHGP PRO - converte exibe.altera « Imprime imagens 

W0251 1DQ ACGCK FORD - editor profissional de cartões. 

W0250 1DD SYNC TT - faz transferência de arquivos entre micros. 

W0267 1DD TETRIS 30 FRACTAL - tetris em trás dimensões. 

W0249 1DD TOUCH TYPE TUTOR - treine sua datilogratia, excelente. 
W0244 1DD XWCALD CLOCK - horas de todos 03 países do mundo. 
Woza7 ADD WHOCP IT UP - maximiza as funções de som dentro do wind. 
WH248 1HD WIN ABC - Introdução no computador para crianças. 

W0242 2DD WIN GRAB - para Imprimir endereços em envelopes. 
WhH246 1HD WINFIN - doze programas para madlisa financeira. - 
WH241 1HD WINSPELL - esto a orto 
























































AC HUNTER - aita pra eps a telefones. 
A0985 1DD ADRESS MANAGER - mala direta, telefones, enderecos. 
A0982 ADD AMORTIZATION - faz calculos financeiros a estimativas. 
AO97O 1DD BUSINESS ANALYSIS - programa financelro e estatístico. 
AO989 1DD CLIENT NOTE FILE - manipula Informaçãões sobre clientes. 
AO971 10D CONSTRUCTION EST.- estima material é custo p/ construção 
AHBI6 1HD CONTACT PLUS - agenda de telefones e compromissos. 
AO967 100 EASY DIAL 3.6 - programa para uso com modems. 

AH981 1HD EZ FORMS EXECUTIVE - editor de formularios. 

AH986 IMD EZ FORM FIRST 1.1 - mestre para criação de formnularios. 
AH980 tHD EZ FORMS LITE 1.5 - edkor de formularios. 

AHe22 HO FAST BUCKS - controis as finanças de casa. 

AO983 1DD FINANCE ANALIZER 2.0 - calcula emprestimos, depositos... 
AO964 10D FIND AREA CODE - procura codigos de telefones nos EUA. 
AO968 2DD FONE 6.1 - fornece precos de chamadas Internacionais. 
AO965 1DD FONE BOOK 3.0 - organiza sua agenda telefonica. 

AMB24 IHD FORM GENERATOR « adikor de texto c/ caracteres graficos. 
AOBOS 1DD LABEL MAGIC 3.01 - editor de etiquetas graficas. 

AO984 DD LOAN CALC.- calcula mensalmente pagtr* de emprestimos 
AQ972 DD PC AREA CODE 3.0 - procura areas das cidades dos EUA. 
AO973 ADD PCBID 2.1 - preco estimado em contratos e trabalhos. 

AO974 20D PC ESTIMATOR - elabora tabelas de precos. 

300 PC MAIL 2.92 - mala direta, excelente. 

tHO PHONE 2.20 « agenda telefonica d/ nomes « anderecos. 
AO966 10D PMONE MAN - agenda de enderecos e telefonas. 

AO97B 20D REGIT 4.2 - transforma seu pc em uma caixa registradora. 
3DD STOCK CHARTING 3.13 + controle da estoque e mercadorias. 
1DD THE MAGNIFICENT ADDING - converte seu pe em calculadora. 


—PROCHAMAS EMPORTUGUES 


AO390 1DD ADM. ESCOLAS E AGA. - sistema para escolas q acaderias. 
AO561 1DD AGENDA - agenda completa com manual em portugues. 
AVOO4 1DD AGENDA - agenda de compromissos. 
AO532 1D0D AMIGO (cega) - codigo de defesa da consumidor. 
Ad008 1DD ASTRAL (zodpc) - faz caículos e mapas astrologicos. 
AO655 10D CADASTRO DE CLIENTES - cadastro de clientes. 
AO025 3DD CONSTITUICAO ELETRONICA - constituição brasileira de BB. 
A0484 2DD CONTABILIDADE - sistema de contabilidade. 
AO447 1D0D CONTASA PAGAR 8.2 - contas a pagar (Compasso) 
AO389 1DD CONTAS A PAGAR/RECEBER - contas a pagar e receber. 
AOT64 1DD CONTAS A RECEBER 8.2 - contas a recebur.(Compasso) 
AD763 1DD CONTROLE BANCARIO - controle suas financas.(Compasso) 
AO779 1DD CONTROLE DE ESTOQUE 8.2 - otimo contr/estoque. (Compasso) 
rm] AQ564 2DD COSMICO CONTABILIDADE - sistema de contabilidade. 
dio 1DD CRIPTO - criptogratador de programas. 

AO4B6 1DD CUSTO & FATURAMENTO - tudo para controlar sua firma. 
AOS69 1DD DAP 1.1 V147-tira as senhas de jogos. 
AO7B6 1DD DISK INDEX - catalogador de disquetes. 
Ao7BS IDD ELETRO - executa orcamento de projetos eletricos. 
AO787 I1DD EXTOK 2.09 - controlo de estoque fisico « financeiro. 
AO768 1DD FICHARIO ELETRÔNICO - banço de dados, agenda... 
AQT6S DD FLUXO DE CAIXA 8.2 - sistema de fluxo de calxa.(Compasso) 
AO496 1DD FOLHA DE PAGAMENTO - sistema de folha de pagamento. 
AO388 IDO FOLHA DE PAGAMENTO - outro otimo folha de pagamento. 
AO242 1DD GUIA PAULISTA - guia de hoteis, lazer, restaurantos ... 
AO7861 IDO INFO 2000 - Introducao a Informatica. 
AOo656 10D LDSK - faz etiquetas p/ disco com diretorio. 
v] A0067 IDD LOTO DESDOBRADO - faz sortelo da loto podendo Imprimie 
=) AO766 IDD MALA DIRETAB.2 - super mata direta. (Compasso) 
AO069 tDD MALA DIRETA PRO BASE - sistema de mala direta. 
AO7890 IDD MANUAL DOS SISTEMAS - manual dos sistemas da Compasso. 
AD428 10D MULTIMALA 1.2 - sistema de mala direta. 
AO497 tDD PC POLILOT - sorteio da loto e loteria esportiva. 
ADS20 1DD PRONTO - fichario eletronico. 
ADO99 1DD SAMI - fantastica agenda de compromissos. 
AOS39 10D SENA 91 + sortelo de jogo» para sena. 
AO646 3DD SENA4200 + faz sortelos a combinacoss da sena. 
AHBO! 1HD SIS. CONTROLE BANCARIO - controla bancario. 
AMBOZ I1HD SIS. CONTROLE FINANCEIRO - controle financeiro. 
AO767 1DD SISTEMA CONTABIL - sistema de contabilidade Integrado. 
a9105 IDD SISTEMA CONTROLE ESTOQUE - controle da estoque. 
0777 1DD SISTEMA IMOBILIARIA - sistema para imoblilarias. 
AQd44 1DD SISTEMA PADRAO CONTABIL - sistema da contabilidade. 
AQ575 1DD SUPERLOTO MASTER - sorteio da ioto. 
AO786 1DD TBAV 6.004 - anti-virus em portuguas. 
































AO891 1DD ANYANGLE 2 65 . estudo da O UG UNA nova versao! 
AH893 t1MD CADET - editor de texto p/ uso com AUTO CAD. 
AHB92 1MD CURVE DIGITIZER - varsatil editor grafico. 

AO890 10D DICOGO 3.0 - gera coordenadas geomatricas em 20. 
AOB89 1DD DRAFT CHOICE 1.51 - nova versao do otimo cad. 
AHBIO 2HD ENVISION PUBLISHER (VGA) - dektop publishing, excelente! 
AHBO94 1HO HYPER SLIDE - apresenta e cria slides, usa telas AUTOÇAD 
AOB9S 1DD LAYOUT - criação de desenhos e ferramentas p/ manutenção 
Ao888 1DD MEGA DRAW 4.0 - ferramenta p/ desenhos e animações. 
AH831 1H0 PC DRAFT CAD 3.6 - poderoso cad. 

AO884  4DD PC KEY DRAW 3.76a - versatil sistema grafico, novol! 

AD88B3 4DD PRINT CAD 1.14 - emulador de plotter para cad. 
RECURSIVE REALM 3.0 - sistema p/ criar fractals. 

QUEST Va. 1» acer ia em "3d, otimo. 






























































BETTER EVESIGHT - tudo br os ol 8 Seus musculos. 
AO956 DD BISIM - Imita eco sistemas naturais. 

AO955 1DD CMEM PACK - completa tabela periodica. 

A0O958 10D CMEMICAL 4.2 - cria moldes de moleculas 3d, nova versao. 
AO957 10D CHEMVIEW - animação molecular em 3D. 

AO954 1DD ELECTRON - tudo sobre elstrons e eletricidade. 

AQ9S9 100 ELEMENT STUDY AID - tudo sobre 03 elementos químicos. 
AOB21 100 FAMILY TREE - efetua calculos geneticos. 

AQOB23 DD FLAGS - bandeiras de todos os países e estados, 

AHO25 1HD GEO CLOCK (vga) - atlas digitalizado. 

AO960 1DD HAZADOUS CHEMICAL - analise de compalibiildade quimica. 
AOBOS DD LEARNTO SING - ensina o alfabeto usado pelo mudos. 

AOBtO 1DD LOTUS LEARNING - ensina a usar a planilha lotus 123. 

AQ829 1DD NATIONS OF WORLD - estmtisticas geograficas do paises. 
AO961 1DD PC CALIB - calibra concentração de substancias quimicas. 
AO632 DD PCFASTYPE (cga) - otimo curso de datilografla. 

AO914 HO THE HEART - tudo sobre o coração humano. 

VAÇCATION PLANNRE - informações e mapas dos EUA e Canada 
WA TOR - simulação de predadoras º presas. 


CATALOGO! 


ALBUN MASTER - versatil catalogador de Ega 
Ao8T2 100 BOOK LIBRARIAN - catalogador de livros profissional. 

AH87S 1HD BUCK FILE - otimo programa p' cotecionadoras. 

AOSTO 1DD CASSETE MASTER - cataloga fitas c/ funções de Impressao. 
AHB?4 1HD CASSETE! - sistema para cataiogar fitas K-7. 

AOB71 DD COINFILE - sistema de Inventaria p/ coleções de moedas. 
AOB69 1DD COLLECT - versatll sistema banco de dados. 

AOB6A 1DD FOR ANTIQUE DOC.- p/catalogar antigos é raros documentos 
AOB6? ADD FOR COMIC BGOK - programa para colecionadores de livros. 
ADO66 1DD FOR GUN COLLECTORS - para colecionadores de armas. 
INTELICAT - catalogador de disquetes. 

MOVIES» banco de dados » 



























































AH927 HO ADVENTURE TOOL KIT - para Faia advriad: 
AO926 10D ALPHABET GAMES - alfabeto para crianças, pre-escola. 
AO925 ADD AMANDO LETTER LOTTO - Joga p' crianças, coras a letras. 
AO924 1DD ANIMAL MATH - aprenda a contar, somar subtrair... 

AO922 1DD ANIMAL QUEST (vga) - Jogo para crianças, excelontel. 

AH923 1MD ANIMATED ALPHABET (aga'vga) otimo p/ aprender Ingles. 
AMB26 1HD ANIMATED MATH (sega) - aprenda a contar com figuras. 
AH926 1HD ANIMATED SHAPES(sga/vga)- p/ identificação de figuras 
AH$29 1HD ANIMATED WORDS(ega'vga)-aprenda Ingies c/ figuras « sons 
ADB42 1DD BEATS DINOSSAUROS - cria paisagens e você pinta. 

AO936 1DD BOAT BCX- otimo Jogo para crianças. 

AO932 1DD BRAINSCAPE - adventure em Ingles. 

AO933 ADO BRANDON'S LUNCHBOX - progr. p/ Introdução ao teciado. 
AOB44 DD CATCHEM (vga) - otimo Jogo para crianças. 

AQ9IS 100 CHILDREN'S GRAPHICS - para desenhar e contar. 

AQoBI3 100 CLOCK AND MOUSE - aprenda a ver horas, 

AGBIS SDD COININTHE BOX - jogo para crianças, soma, 

AD921 1DD CRAZY SHUFFLE - otimo Jogo de memoria. 

AO827 1DD EGA COLOR BOOK - telas c! desenhos p/ crianças pintarem 
AO93I5 1DD EGA MOUSE PAINT (EGA) - 29 figuras p' pintar. 

AD8OS 1DD FUNNELS & BUCKETS - jogo com contas matematicas. 
AH931 1HD JOHN'S ANIMATED - diversao para crianças. 

AOB28 DD KID PAINT (ega) - telas para crianças pintarem. 

AH930 HD THE ANIMATED MEMORY (aga'vga) - logo de memoria. 
AOBI9 10D WORD GALLERY - aprenda Ingles com desenhos. 

ADB34 ADD WORD PROCESSING FOR KIDS - editor de texto p' crianças. 
ARB4O 1HD WORD RESCUE - jogo de ação, monte palavras. 

AD641 1HD WUNDER BOOK (vga) - logo pes lindas c desenhos. 














































































AoB43 1DD BARTENDER 1.1 - 200 receitas de bebidas e coquiteis. 
AQ951 10D BIGRHYTHM - gera lista da biorritimo mensal. 
AQ920 1DD COMPUTER BAKER - 99 receitas p/ forno. Banco de dados. 
AH915 1HD DIET AID - plano de dista computadorizada, banço dados. 
AO950 1DD DIET TEST - controle de peso. 
AO919 ADO EDNAS'S COOK BOOK - completo sistema para receitas. 
AOG4O 1DD EKG- Interessante apresentação envolvendo corpo humano. 
AO939 100 EMS - tecnicas de emergencia medica. 
AO917 | 1DD FAST FGODS - lista nutricional c/ seus valores proteicos 
AO9I8 DD FLOWER REMEDY PROGRAM - ensino sobre as flores. 
AO916 1DD GOUAMET RECIPES - 66 diferentes receitas am formato TXT. 
Ad946 1DD HEADACHE FREE - informaçãões relativas a dor de cabeca. 
AM$1B 1HO HEALTH AIDE - orientação nutricional. 
AO9I3 100 HOME BARTENDERS GUIDE - receitas de bebidas « drinks. 
AOO4S 4DD INSULIN- prog. p' ajudar na regulagem de insulina usada 
AO944 1DD KINETICS - ajuda o medico no controle de doses « drogas. 
AO949 1DD NON-MEDICAL + tecnicas p/ superar sofrimento e dores. AO113 10D TUTOR DOS 4.01 - tudo sobre o dos 4,01. 
AO948 DD NURSE WORKS 2.0 » series de enfermagem c/ utilitarios. A0114 1DD TUTOR LOTUS 123 - apranda a utilizar a famosa planilha. 
AO947 IDO PRESCRIPTION ASSISTANT - prescrição de etiquetas. 778 |NDD WINE - editor de textos em portugues. 
AH943 1HD SLIMMER - redução de peso p/ nivel de colesterol alto. 
AM953 1HD THE ALTERNATIVE MEALTH - varios assuntos sobre saude. 


AO942 10D THE STRESS TEST - determina seu nivel da stress. 
WHY YOU SMOKE - avaiia e relata procedimento de fumar. AT E N B E M 0 S 
AOBI6 1DD SKY GLOBE 3,0 - faz r ma E 


a a Do all ALA Li AA O | TODO O BRASIL 
Ps “SENHOS E PINTURA: ENGENHARIA 

AD912 DD 256 DRAW (vga) - penis mede. AO! 1DD A-FILTER - calculo p' resistor e valores p/ filtros. 
AH9tI tHD eb PROGRAM (vga) - animações, end nao 1D0 vu Fono programa pura cl oba 




































AH858 IHO ACE ASTRONONY - tudo Sobri [) pro solar. 
AOBS9 1D0D ASTROCLK - relogio astronomico, 
AOB6O 1DD ASTROL 96 - calcula o zodiaco, posição dos planetas ... 
“AOB6! 1DD ASTROMICAL EPHEMERIS - fornece mapas astronomicos. 
ADRS7 1DD COSMOS 8.07 - almulação astronomica. estilo pianetarlo. 
A0B55 200 DEEP SPACE 3D - produz mapa estelar. 
ADBS4 DD EARTH WATCH - exibição de graficos da terra « lua. 
AO853 1DD GRAVITY SIMULATOR - simula gravidade entre 03 planetas. 
Ao852 ADO JUPITOR SATELLITE SIM. - simulação e exibição de Júplter 
AO95O 1DD LAUNCHER - Informações sobre orbitas. 
AM9S51 1HD MISSICNTO MARS - todas informações sobre marte. 
AQB49 +DD MOONS OF JUPITER - posições de jupiter a suas luas. 
AO848 10D NAVAGATION JUPITOR - programa p/ navegação marinha. 
AO847T 10D PLANETS - utilitario c/ Informaçãos sobre 03 planetas. 
AOB46 tDD SLICON SKY - exibe mapa celestial e posição dos planetas 
ADBAS 1DD SKY BASE 2000 - cria mapas e Imagens do céu. 




















































RUA JOÃO CORDEIRO, 495 - OCO Gear DO Ô - SÃO PAULO - CAPITAL - CEP 02960-000 





CLASSIC SOFT TEL /FAX (01 1) 8759-4644 


L. - CEP 02960-000 


PROMOÇÕES PC 
10 Jogos ou aplic. ganhe um grátie c/ disco. 
30 Jogos ou aplic. ganhe 10 grátis c/ disco 















DISCO 5 1/4 HD C/ GRAV............... R$ 2,00 
DISCO 5 1/4 DD C/ GRAV............... R$ 1,50 
PARA COMPRA ACIMA DE 20 DISCOS 
PAGAMENTO EM DUAS VEZES: 

metade no ato, metade para 15 dias após. 

















































































































































































































FAÇA SEU PEDIDO: Por telefone, fax ou carta. 
o) A) SEDEX à cobrar, você só pagará quando retirar o pedido no correio da sua cidade. 
GO G, c (Lembramos que os serviços dos correios são caríssimos) 
O-“<O 
Õ as pedido por cheque nominal pois você recebe seu pedido em casa. 
3» 4a C) DEPÓSITO BANCÁRIO: Unibanco - ag. 137 - conta 113 444-4 em nome de Classic Soft 
pe DESPESAS POSTAIS: (Registrada) pedidos até 18 discos..... R$2,80 (Preço somente para pagamento em cheque 
AA depósito bancário 
COD.:Q0 NOME: COD.:QD NOME: COD.:QD NOME: COD.:QD NOME: 
eensecmnssnomesanmoneengagem 1092 BDD LEISURE SUIT LARAY egakga) J134 2DD FORD SIMULATOR 2 (cga) 1348 3DD POKERCHNES (egaloga) 
estsbsd. ABrsbss ss snaos 201 20D LIFE AND DEATH (cga) 1251 4DD GRAN PRX UNLIMITED (vga) 349 1DD STRIP POKER (ega) 
H1022 02HD AIRBUS320 H474 3HD MANSLEY LOS ANGELES (vga) 563 1DD HARDORNNG(cgança) Emas doses cs 1155 7DD STAIP POKER 3 (vga) 
H0936 02HD BLAKE STONE FULL H370 9HD MIGHT AND MAGKC 4 (vga) J177 20D INDIANAPOLIS 500 (cgarga) HOS3 HD 4DSPORTS BOXING (vga) 1249 1DD TRUCO (cgaiega) 
H1041 02HD CLASSIC 5 4518 BDD MONKEY ISLANO 1 (vga) 244 2DD OUT AUN (egaNgaher) 1113 40D ABCBOXXING (vga) 1423 10D VIDEO POKER (cgalaga) 
y oo o NCRANCHE ENEUNGES H407 6HD POLICE QUEST 1 VGA 4264 400 POWER DRIFT (cganga) 1174 2DD BLADES OF STEEL (cgaiga) UPA OWs: 
H292 SHD QUEST FOR GLORY 3 fuga) 278 200 RM SUZUKI (cgalega) 1355 3DD BUFALLOBILL(cgavga) pi 
H1010 01HD CREEPERS 
H1024 02HD DINO PARK J26 3DD SPACE QUEST 2 (cgakga) J344 4DD STREET ROD 2 (cgaNgaher) 75 SDD DREAM TEAM (vga) HIf8  1HD BATTLE CHESS FOR WINDOWS 
16 6DD SPACE QUEST 3 (cgaNgahor) J354 4DD STUNTS (cgahgahor) 1404 1DD EIROPEAN CHAMPION 1992 (vga) WHIS9 1HD BATTLE SAT (batalha naval) 
HOB40 04HD DOOM REDE 
H0696 02HD EIGHT BALL DE LUXE H365 SHD SPACE QUEST 5 (vga) 362 2D0D SUPEROFF ACAD (cgaNga) H212 3HD HARO BALL 3 (vga) 1283 1DD DAMAS FOR WINDOWS 
H229 2HD GAME PACKIV 
HNO3 O1HD ERIC PIMBALL H413 2HD STARLEGIONS (vga) J977 10D TEST DANE 1 (cgalgahor) 1338 SDD HOLE N ONE (goleXcgak ga) WH229 
Rondo BAR ETTONARN H$07 AHD THELEGEND OF KYRANDIA ça) | 4380 3DD TEST DAIVE 3 (vga) MOO 1DD ITALIA 90 (egaMga) H383  2HD MONOPOLY DELUXE (366) 
HOD49 OSHO FLIGHT SIM. (SAN FRANCISCO) | 29 1DD TRANSAVANIA (cga) J739 1DD TURBO OUT RUN (cga) J!64 2DD KINGS OF THE BEACH (cgaNga) | H641 2HD PIMBALL WINDOWS (386) 


FORMAS DE PAGAMENTO: 
N Ro B) CHEQUE NOMINAL À CLASSIC SOFT LTDA,, para sua comodidade e economia recomendamos fazer 0 
N 
Ge Bradesco - ag 117-1 - conta 98741-7 em nome de Classic Soft - enviando xerox do depósito junto ao pedido. 

HOM! BHD LEISURE SUIT LARRY 5 (vga) J144 10D GRAN PRIX CIACUT (ega) E EESERSSOG REAR n eo Bss 1030 1DD POOL 3D (cgaloga) 
H0785 03HD ACES OVER EUROPE H340 SHD MARIO MISSING (vga) J841 200 HARD DAIVING2 (cgangaloy) 119! IDD 10THFRAME (boliche)tega) 1266 1DD STRIP POKER EM PORTUGUES 
Foda OGHD COACHES CLUB FOOTBALL | 4927 6HD MONKEY ISLAND 2 (vga) 1305 2DD PARIS DAKAR (cgargaher) 79 1DD ARCADE VOLEYBALL (ego) EEE 
HO928 03HD COMMANCHE MISSION 2 

H313 10HD SHEALOCK HOLMES (vga) J341 3DD STREET ROD (egaNganar) J062 3DD CALIFORNIA GAMES Ii (cgaNga) H574 2HD AIRTRAFFKC CONTROLER (386) 
HOB3S 04HD DOOM FULL 

HO35 GHD SPACE QUEST 4 (vga) J361 1DD SUPER HANG ON (cgalega) 559 tDD FERNAN MARTIN(cga)(basquola) HIOS  1HD CHESS MASTER 3000 FOR WIN 
HO847 01HD ELECTRO BODY 

H274 6HD STUNT ISLANO (vga) J78 4DD TEST DAIVE 2 (cgaloganga) J876 2DD INTERNATIONAL SOCCER (cgavg) | H021 tHD JOGOS FOR WINDOWS 
HOG38 04HD FLIGHT SIMULATOR 5.0 

H485 2HD VENGANCE OF EXCALBUA (vga) J736 3DD TURBO OUT AUN (vga) J191 2DD LAKERSx CELTICS (cgataga) H457 IHD POKER FOR WINDOWS 


H0879 02HD FORD SIMULATOR 3 










HO878 01HD GALACTIX NEW VERSION Eoncopnononeca Des HOT4 1HD VETTE (oganga) 1285 SDD LINKS (vga) WO30 1DD PUZZLE 
HO929 02HD HIGTH COMMAND à SR RA : a WORLD CIACUTT (386 N ga) H498 4HD LINKS 386 (386/sv ga) H443  2H0 RISK FOR WINDOWS (386) 
HO0932 01HD HALLOWEEN HARAY RENSRS EEE om emonnaonanonade : ESGELEÇESES mor 205 IDD LOW BLOW (BOXE) (Cgar ga) 1351 2DD SIMCITY FORWINDOWS 



































H1058 10HD INCA 2 

H0713 03HD INDY CAR RACING 

H1051 04HD JURASSIC PARK 

H0889 01HD LOTUS ULTIMATE CHALLENGE 

H0899 OSHO LEISURE SUIT LARRY 6 

H1028 02H0 LESSLE ANGEL 

HO939 01HD LIVERPOOL 

H1043 08HD METAL & LACE 

HO0747 03HD MORTAL KOMBAT 

MO993 08HD MIGHT MAGIC Y DARKSIDE OF 
XEEN 

H0618 03HD NIGEL MANSSEL 

H0877 01HD PANG DINO BALL 

HO910 12HD POLICE QUEST 4 

H1075 01HD PINBALL DRENS FULL 

HO924 02HD PINBALL FANTASIES 

H0651 06HD PRIVATEER 

H0740 05HO ROBOCOP 30 

H1005 02H0 RAGNAROK 

H1055 O3HD RAR ROAD TYCON DELUXE 

H0893 06HD RALLY 

H1001 O$HD RAPTOR 

H0853 08HD STRIKE COMMANDER 

H0882 01HD SOLAR WINDS 

H0884 01HD SINK OR SWIN 

H0890 03H0 STREET FIGHTER Il FULL 

HO934 01H0 SENSIBLE SOCCER 

H0938 02HD SUPER PORNO 2 

H0949 02HD SUPER PORNO 3 

HO942 02HD SUPER PORNO 4 

HOD43 O2HO SUPER PORNO 5 

HO94S O2HD SUPER PORNO 6 

H0947 O2HD SUPER PORNO 7 

H1007 03HD SURF NINJAS 

41060 04HD STAR CONTROL 2 

H0955 14HD STAR WARS CHESS 

H0720 11HD STAR TRECK JUDGMENT 


H0827 02HD SIM CITY 2000 

H1068 01HD SIM CITY (SENÁRIOS) 

H0021 02HD SIM HEALTH 

HO935 02HD TIME AUNNER 

H0777 01H0 THE LOST VIKINGS 

H1079 02HD TOP GUN 

H1014 08HD ULTIMA B PAGAN 

H1011 03HD ULTIMA 8 SPEECH PACK 

HO329 05HD X-WING 

H0334 03HD WORLD CIRCUIT 

H0648 01HD WORLD CIRCUIT 
UPGRADE 

H1076 02HD YO JOE 

H1078 04MD GREAT NAVAL BATTLE 2 


W0S7T 1DD TAKE ONE 
1347 10D TETAIS FORWINDOWS 
WH201 1HD WINSHAPK (poker) 

WH203 1HD WINWHELL 


13 2DD ASTERIX (cga/ogaiga) 

H089 IHD BAT (vga) 

H337 7HD BATMAN RETUANS tvga) 

035 4DD BATMAN THE MOVIE (cgaM ga) 

H448 1HD BUMPY'S (agaivga) 

J847 IDD CADAVER (vga) 

J167 1DD CAPITAO TRUENO (cega) 

J06B 2DD CASTLE VANIA (cgaloga) 

1478 1DD COMAN (pac manvga) 

1284 1DD CHARLIE CHAPLIN (cga) 

1476 20D COMMANDER KEEN 6 (oga) 

1311 60D DICKTRACE (vga) 

J107 2D0 DUCKTALES (cgalega) 

H155 SHD FREEDC (vga) 

J742 1DD FLINTSTONES (cgahga) 

H116 1HD GODS (986h9a) 

Jt49 2DD HORA DO PESADELO (cgalaga) 

1041 3DD HORROR ZOMBIES (vga) 

J151 1DD HOSTAGES (cega) 

588 1DD ILHA DISNEY (cga) 

Jt74 1DD INDIANA JONES (cgalaga) 

J!7S 2DD INDIANA JONES 2 (cga/agahor) 

H298 I1HD JOE & MAC (3854 ga) 

H449 2HD LURE OF THE TEMPRESS (vga) 

213 1DD MARIO BROSS (vga) 

H088 1HD OUTOF THIS WORLD (vga) 

J246 1DD PAPERBOY (cga) 

H095 1HD PAPER BOY 2 (vga) 

1302 2DD PRE HISTORIC (ogaigs) 

943 30D PREDATOR 2 (cgarga) 

268 200 PRINCE OF PERSA (cegas ga) 

H468 1HD PRINCE PERSIA EDITOR(cgahga) 

H469 SHD PRINCE OF PERSIA 2 (vga) 

272 20D RAMBOS (cga) 

H426 1HD RISXWOODS (vga) 

“2060 1DD ROAD RUNNER (coajega) 

261 1DD ROBOCOP (cga) 

282 2DD ROBOCOP SPECIAL (ea) 

Hi49 5HD ROGER RABITT 2 (vga) 

H442 2HD ROGERWICO (vga) 

305 10DD SPACE ACE (cgakga) 

1391 12DD SPACE ACE 2 (cgaNça) 

H326 2HD SPEAROF DESTINY (vga) 

Jo78 2DD SPIDERMAN (cgahga) 

H140 3HD THE ROCKTEER (vga) 

J672 4DD THE SIMPSONS (vga) 

46 GDD THE SIMPSONS 2 (vga) 

Temer meets H183 (HD THE SIMPSONS vs SPACE MUTANT 
H081 1HD THE TERMINATOR? (vga) 

975 1DD TICO E TECO (egatoga) 

564 1DD TOME JERAY (cgaloga) 

1204 6DD WRATH OF DEMON (vga) 

Hi31 SHD CARMEN SANDIEGO DELUXE (vga) Hi22 1HD WOLFENSTEN 3-D (vga) H064 3HD GUN SHIP 2000 (vga) 

J66 DD CARMEN SANDIEGO EUROPE (ega) J?71 IDD X-MEN (cgaga) H395 2HD GUN SHIP 2000 MISSION 

J83t 3DD CARMEN SANDIEGO TIME (oghga) [ER H096 tHD MEGA FORTRESS fvga) 

24 tDD CARMEN SANDIEGO N USA (cega) S Eb E e o E o 

H354 1t4HD DARKLANDS 

MIGA OD DARI SED Ra J781 9DD PAL ROAO TYCON (cgaNga) 


1468 800 DRAKKHEN galhos aaa aa in pr a dal Hi73 2HD RED BARON (vga) 
H379 4HD DUNE pi 585 1DD 4x4 OFF ROAD RACING (ega/ag) 1413 BDD SECRET WEAPONSLW (vga) 


H240 SHD FIVEL (vga) 11ft 1DD ACTION FIGHTER (cgaegalan) 1007 4DD SIMANT (vgaher) 

H427 1HD GALLEONS OF GLORY (rga) JO17 1DD AFRICAN RALLY (ega) 1358 20D SIMCITY (cga) 

H4s2 3MD GOBLIN'S (vga) H323 4HD CARA DAIVEA (3864ga) J297 200 SIMCITY fuga) 

H297 tHD HOUSE OF HORRORS (vga) 1304 1DD CISCO HEAT (cgarga) J88s 4DD SIMCITY FUTURE (vga) 

HO67 SHD INDIANA JONES ATLANTIS (vga) 091 2DD DAYS OF THUNDER (cgarga) 176 4DD SIMCITY GRAPH ANCIENT (vga) 
H423 3HD KGB (vga) Ji2a 1DD F-40 (ega) JS71 4DD SIMEARTH (vga) 

H902 9HD KING'S QUEST VI frga) J60S 20D FERRARI F-1 (ogakga) H417 IHD SPECTRE (vga) 

J196 2DD LEISURE SUIT LARAY 1 (ega) 1983 1DD FIRE AND FORGET (cga) 1026 300 STRIKE ACES (vga) 

H299 9HD LEISURE SUIT LARRY 1 (vga) Jt33 4DD FORD SIMULATOR (cpa) J86 1DD THE HUNT OCTOBER (ega) 


ATENDEMOS SEU PEDIDO ATÉ AS 21 HORAS POR TELEFONE 


H399 1HD NCAA BASKETBALL (vga) 

H455 2HD OLIMPIADAS 92 (vga) 

H415 1HD SUPERSKY II (vga) 

J526 3DD TAKE DOWN (luta livro)tcga) 

J997 4DD TENNIS PRO TOUA (cgalega) 

HHt2 1HD TENNISPTOTOVAZ Ng) Es ENS OESSS ONES E 

1280 2D0D WORLD CHAMPION SOCCEA (vga) tg: E 

J138 2DD WORLD CUP SOCCER (cga) Fosco corhano dora 

J437 1DD WORLD GAMES (ega) % 

J4) 1DD WORLD TOVA GOLF (ega) OS ES 

H087 1HD GALACTIC (vga) 1363 2D0 ANMETED MEMORY (vga) 

1198 1DD STARGOOSE (cga) Ee 838 J928 1DD ATOM (vga) 

329 1DD STARTRECK(cga) SS NENE NE SE ENEM J038 200 BATTLE CHESS (egahrga) 

540 5DD STARTRECK V (vga) J014 100 ADULT GAMES (egs) H385 BHO BATTLE CHESS 4000 tvga/sega) 

H164 7HD STARTRECK XXV (vga) J020 1DD AIDS (ega) JOT4 1DD CHESSMASTER 200 (cga) 

J394 1DD THEXDER (cga) J054 1DD BOCA (eça) H062 2HD CHESS MASTER 3000 (vga) 

589 300 XENON H (cgaiga) JO?7 ADD CINE PORNO (cga) H311 2HD CIVILIZATION (vga) 

J12 10D XONIX (cga) H458 3HD DL-VIEWER (vga) 1382 1DD COLUMMS (oga) 

H329 SHD X-WINGSTAR WARS (3864ga) JS6S 1DD EASTSUCKSWEST (vga) JB9 IDD CYRUSXADREZ 3D (cgaNga) 

L002 BHD WING COMMANDE A Il (vga) J830 1DD MAXINE (cga) 1403 1DD DYNAMO (DAMAS) (cgaNga) 
EEE 1900 2DD NIKK! (vga) J125 1DD FACES (cgaher) 

1432 1DD PORNO 1 (cga) J48 3DD FACESTETAIS (vga) 

t434 1DD PORNO CARTOONS (ega) JI98 3DD LEMMINGS 1 frga) 

J262 1DD PORNO STORY (cga) H480 2HD LEMMINGS 2 TRIBLES (vga) 

H098 1HD SEX CAPPAD (vga) 101 6DD LIVING JIG SAW frga) 

JS64 DD A-10 TANKKLLER 2 (agarga) H049 2HD SUPER PORNO DEMO (vga) J898 1DD LOGICAL (vga) 

1332 6DD A-TRAN (vga) J786 1DD TELA EROTICA (ega) H183 1HD MICKEY JIG SAW (cgaNga) 

J784 20D ABRAMS BATTLE TANK (cgar ga) E TNENTEM SonspnpnSSn nn Santar apis 226 1DD MONOPOLY (cga) 

38 1DD ACESOFACES (cega) E E: 1307 10D MONOPOLY 2 0 (egarga) 

HOB4 3H0 ACESOF THE PACIFIC (vga) J939 1DD PACMAN (cgaPC-XT) 

1182 4DD ATP (cgafegaviga) so 1219 1D0 PACMAN (egalga) 

H196 SHD B-17 AYINGFORTRESS (vga) praias dc H418 SHD POPULOUS | (vga) 

JO43 2DD BATTLE HAWKS 1942 (cgaNga) 1405 1DD AIRBONE RANGER (ega/aga) H415 1HD SARGON Y (vga) 

JO45 4DD BATTLE OF BRITAN (cgakga) 1154 1DD BATALHA NAVAL (cga) J83 1DD TETAIS (cega) 

H280 3HD COMANCHE (3864 ga) JOS9 20D CABAL (cga/oga) H435 SHD TETTAIS CLASSIC (vga) 

Jot4 6DD FTA (vga) H215 1HD CONFLICT (cgaloga) H999 2HD THE HUMANS (vga/swga) 

H256 1HD F-I17A TURORIAL (vga) H214 1HD CRACK DOWN (cgaNgaher) H633 2HD THEATRE OF WAR 

J544 40D F-4 TOMCAT (egalga) 1272 200 GREENBERET (PC-XTicga) 1168 1DD X-MAS LEMMINGS (vga) 

J115 1DD F-1SSTAIKE EAGLE 1 (cega) J167 1DD IKARIWARRIORS (ega) 1109 DD ZARKOV (xadrozicgalega) 

J116 2DD FSSTRIKE EAGLE 2 (cgahga) 1410 1DD METAL GEAR (ega/ogaher) ate ol ta ota tato2sSa 2 ER PRESSAO aos der ponta atos e 

H267 6HD F-15 STRICK EAGLE 3 (vga0B6) J241 3DD OPERATION WOLF (ega) PET: : : 

J!1B 20D F-16 COMBAT PLOT (cgaher) H286 HD PACIFIC ISLAND (cgaiga) mais geo 

J121 3DD F.19 (cosfogakgaher) H482 39HD PATRIOT (vga) E 5 k- 

1421 2DD F-29 (vga) 360 1DD SUPERCONTRA(ega) JS ns dendomisiadio Boto ; 

Jt27 1DD FALCON (cega) H436 6HD TASK FORCE 1942 (vga) 

HO55 SHD FALCON 90 (vga) H445 3HD TWILIGHT 2000 (vga) 






























“018 200 AFTERBUANNER (cgavgaher) 
J747 2DD BLOODY MONEY (vga) 

J74O 20D BLUE ANGELS (cgakga) 

Jiti4 1DD ELITE (cga) 

H126 1HD ELITE PLUS (vga) 

J984 4DD FIGHTERBOMBER (cgaM ga) 
















































































































J002 2DD GBBATTACK SUB 2 (cgakga) 
JOD4 4DD A-t0 TANKKLLER (cgalega) 















































































































































































1258 3DD BRUCE LEE LIVES (egaloga) 

=] JO90 20D DRAGON NINJA (egaloga) 

e Ji04 2DD DOUBLE DRAGON (cgatan) 
Jt06 1DD DOUBLE DRAGON II (cga) 

1451 3DD DOUBLE DRAGON H (agakga) 
H451 1HD DOUBLE DRAGON IN (vga) 
H328 IHD FIRST SAMURAI (vga) 

Jt45 20D GOLDEN AXE (cgaigaler) 
J1B3 1DD KARATEKA (cga) 

J746 1DO NINJA GAIDEN (egalega) 

1331 10D NINJA RABBIT (cgafrga) 

JS44 4DD PANZA KICK BOXXING (vga) 
H073 14HD PIT FIGHTER (rega) 

J274 20D RASTAN SAGA (cega) 

= 566 200 RENEGADE (egalga) 

o] J295 2DD SHINOBI (cgakga) 

515 9D0D STREET FIGHTER MAN (cgavrga) 
J38 2D0D STREET FIGHTER (cgaloga) 
H461 SHD STREET FIGHTER E (vga) 
367 400 TARTARUGAS NINJA (cgalega) 
J$98 6DD0 TARTARUGAS NINJA 2 (vga) 
Hitf 1HD TARTARUGAS NINJA 3 (vga) 
JO! 4D0D TONGUE OF FATMAN (egalrga) 
H118 tHD WRETLE MANIA trga) 


H265 2HD FALCON 3 O MISSION 

1435 6DD FLIGHT OF INTAUDER (cgas ga) 
J190 2DD FLIGHT SIMULATOR 30 (egaig) 
J13t 20D FLIGHT SIMULATOR 4 0 (ega/og) 
H115 1HD FLIGHT SIM 4 senanos 

966 200 GUN SHIP (egalaga) 















J026 1DD ARKANOID 2 (cga) 
JSD 1DD ARKANOID 2 (agalça) 

1352 10D BANANOID (vga) 

1209 1DD MACADAM BUMPEA (cga) 
214 1DD MASTERBLASTER (cgaPC.XT) 
597 1DD NIGHT MISSION (ega) 

4250 100 PIMBALL COLLECTION (PC-XT) 
J257 1DD POPCORN (cga) 


ALONE IN THE DARK (vga) 
AMAZON (rega) 















































































HOSO 1HD AMARILO SLIM POKER (vga) 
J63 1DD BILHAR 3D (cgahgahe) 
JO!6 tDD BLACK GAMMON (cgakça) 
J59 1DD CANASTRA (ega) 

962 1DD DOMINO (cgaloga) 

1265 1DD DRAW POKER (cega) 

1477 1DD JMMY WHITES SNOOKER (vga) 
4247 1DD PCPOOLS CHALLENGE (cga) 











ROTINA 


Extenso 


Mauro Lúcio da Silva 


O programa que apresento transforma números, 
até 999,999,999.99, no seu correspondente por extenso. 
Seu uso é fácil, sendo desnecessário detalhêo. 
Espero que ele possa ser útil para quem desenvolve 
sistemas contábeis. 


MAURO LÚCIO DA SILVA programa em Basic, Cobol e 


===) Clipper. 


DD IIINNO ACHE 


* CRIA E INICIALIZA VARIAVEIS E RECEBE O 
NUMERAL 
SET FIXED ON 
SET DECIMALS TO 2 
BORLA-CER (201) ER(205) +CHR(187)+CER(186) +CHR(188) CHR(205) +; 
CHR (200) +CHR(186)+CHR(032) 
CLEAR 
DO WHILE .T. 
VALEXT=0 
SET COLOR TO /BG 
6 00,00 SAY SPACE(80) 
6 24,00 SAY SPACE(80) 
Q 00,00 SAY “Transforma numerais em 
extensos” 
SET COLOR TO B 
é 07,00 CLEAR TO 23,79 
SET COLOR TO W/BG 
é 03,20,05,55 BOX BORDA 
G 04,22 SAY “Entre com Valor: ” GET 
VALEXT PICTURE “999,999,999.997 
READ 
IF LASTKEY ()=27 
EXIT 
ENDIF 
DO EXT VAL 
ENDDO 
QUIT 
* RELACIONA E SEPARA O NUMERAL EM 4 
PARTES *reweae* 
PROCEDURE EXT VAL 
PRIVATE TXTBLS [03], TXTBLP[03], CT[09], 
DZ (09], UN[09), CZ[10], CRZ 
TXTBLS[01]= “Cruzeiro” 
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TXTBLS[02]= 
TXTBLS[03)= 


TXTBLP[01]= 
TXTBLP[02]= 
TXTBLP[03)= 


EXT="" 
UXT="" 





Números escritos por extenso 





Micro: PC XT/AT 
Memória: 640 Kbytes 
Vídeo: CGA/EGA/VGA 

Linguagem: Clipper 
Requisitos: Nenhum 
Enc s js =s ca] 


“mil” 
“Milhao” 


“Cruzeiros” 
“mil” 
“Milhoes” 


CT[01]= “Cento” 
CT[02]= “Duzentos” 
C7[03]= “Trezentos” 
CT[04]= “Quatrocentos” 
CT[05]= “Quinhentos” 
CT[06]= “Seliscentos” 
CT[07]= “Setecentos” 
CT[08]= “Oitocentos” 
CT[09]= “Novecentos” 


CZ[01]= “Dez” 
CZ[02]= “Onze” 
CZ[03]= “Doze” 
CZ[04)])= “Treze” 
CZ[05]= “Quatorze” 
CZ [06]= “Quinze” 


CZ[07]= “Dezessels” 
CZ [08]= “Dezessete” 
CZ[09]= “Dezoito” 

CZ [10]= “Dezenove” 


DZ [(01]= “Dez” 

DZ [02]= “Vinte” 

DZ [03)= “Trinta” 

DZ [04]= “Quarenta” 
DZ [05]= “Cinquenta” 
DZ [06]= “Sessenta” 
DZ [07]= “Setenta” 
DZ [08]= “Oitenta” 
DZ [09]= “Noventa” 


UN[01]= “Um” 


UN[02)])= “Dols” 
UN[03]= “Tras” 
UN[04]= “Quatro” 
UN[05]= “Cinco” 
UN[06]= “Seis” 
UN[07]= “Sete” 
UN[08]= “Oito” 
UN[09]= “Nove” 


CR4=”” 





UXT=STR(VALEXT) 
EXT=ALLTRIM (UXT) 
MILH="” 

MILS="" 

UNID=""” 

CENT="” 

TXl=”"” 

TX2=”” 

TX3=”7” 

TXé6="” 


IP LEN(EXT)=12 
MILH=SUBSTR (EXT, 01,3) 
MILS=SUBSTR(EXT,04,3) 
UNID=SUBSTR(EXT,07,3) 
CENT=SUBSTR(EXT,11,2) 

ENDIF 


IFP LEN(EXT)=11 
MILH=MILH+” 0" 
MILH=MILH+SUBSTR (EXT, 01,2) 
MILS=SUBSTR(EXT,03,3) 
UNID=SUBSTR(EXT,06,3) 
CENT=SUBSTR(EXT,10,2) 
ENDIF 


IF LEN(EXT)=10 
MILH=MILH+” 00" 
MILH=MILH+SUBSTR(EXT,01,1) 
MILS=SUBSTR(EXT,02,3) 
UNID=SUBSTR(EXT,05,3) 
CENT=SUBSTR (EXT, 09,2) 

ENDIF 


IF LEN(EXT)=09 
MILH=MILH+” 000" 
MILS=SUBSTR(EXT,01,3) 
UNID=SUBSTR (EXT, 04,3) 
CENT=SUBSTR (EXT,08,2) 

ENDIF 


IF LEN(EXT) =08 
MILH=MILH+”000" 
MILS=MILS+”0" 
MILS=MILS+SUBSTR (EXT, 01,2) 
UNID=SUBSTR(EXT,03,3) 
CENT=SUBSTR (EXT, 07,2) 

ENDIF 


IF LEN(EXT) =07 
MILH=MILH+”000" 
MILS=MILS+”00" 
MILS=MILS+SUBSTR(EXT,01,1) 
UNID=SUBSTR (EXT, 02,3) 
CENT=SUBSTR(EXT,06,2) 

ENDIF 


IF LEN(EXT) =06 
MILH=MILH+”000" 
MILS=MILS+”000" 
UNID=SUBSTR (EXT, 01,3) 
CENT=SUBSTR (EXT, 05,2) 

ENDIF 


IP LEN(EXT)=05 
MILH=MILH+”7000" 
MILS=MILS+”7000" 
UNID=UNID+” 0" 
CENT=SUBSTR (EXT, 04,2) 

ENDIF 


IF LEN(EXT) =04 
MILH=MILH+"000" 
MILS=MILS+”7000" 
UNID=UNID+”00" 








IF SUBSTR(EXT,1,1)=”0" 
UNID="” 

UNID=UNID+”000" 
CENT=SUBSTR(EXT,03,2) 

ELSE 
UNID=UNID+SUBSTR(EXT,01,1) 
CENT=SUBSTR(EXT,03,2) 

ENDIF 

ENDIF 


DO MILHAO 
DO MIL 
IF VAL(MILH)>0 .OR. VAL(MILS)>0 
IF VAL (UNID) =0 
CRZ=CRZ+CHR (32) 


CRZ=CRZ+"de Cruzeiros Reais” 


ENDIF 
ENDIF 
DO UNIDADE 
DO CENTAVO 


PRIVATE TXI[4] 

DO SEPARA 

SET COLOR TO /BG 

14,00 SAY REPLICATE (“-”,80) 
15,00 SAY SPACE(80) 

16,00 SAY SPACE(80) 

17,00 SAY SPACE(8B0) 

18,00 SAY SPACE(8B0) 

15,15 SAY TX[1] 

16,15 SAY TX([2] 

17,15 SAY TX[3] 

18,15 SAY TX[4] 

19,00 SAY REPLICATE (“-”,8B0) 
OP=SPACE(1) 

6 24,00 SAY SPACE(80) 

DO WHILE .T. 


ARA DADADAO 


G 24,00 SAY “Imprimir? <S/N>: “ GET 


OP PICTURE “Il” VALID (OP$”"SN”) 
READ 
IF LASTKEY ()=27 
LOOP 
ENDIF 
G 24,00 SAY SPACE(8B0) 
LP OP="N” 
RETURN 
ELSE 
DO IMPRIMA 
RETURN 
ENDIF 
ENDDO 
* CONVERTE PARTE PARA MILHAO * 
PROCEDURE MILHAO 
IF VAL (MILH) =0 


RETURN 
ENDIF 
A=0 
A=VAL (SUBSTR(MILH,1,1)) 
IF A>0 
IF A=1 
IF VAL (SUBSTR(MILH,2,2))=0 
CRZ=CRZ+”Cem” 
ELSE 
CRZ=CRZ+CT[A] 
ENDIF 
ELSE 
CRZ=CRZ+CT[A] 
ENDIF 
ENDIF 


A=VAL (SUBSTR(MILH,2,2)) 
IF A>9 .AND. A<20 
A=A-9 
IF VAL (SUBSTR(MILH,1,1))>0 
CRZ=CRZ+” a “ 
ENDIF 
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CRZ=CRZ+CZ [AJ 
ELSE 
A=VAL (SUBSTR(MILH,2,1)) 


IF A>0 
IF VAL(SUBSTR(MILS,1,1))>0 
CRZ=CRZ+” e “ 












IF A>0 ENDIF 
IF VAL (SUBSTR(MILH,1,1))>0 IF À > O 
CRZ=CRZ+” e “ CRZ=CRZ+DZ [A] 
ENDIF ENDIF 
IF A > 0 ENDIF 
CRZ=CRZ+DZ [A] A=VAL (SUBSTR(MILS,3,1)) 
ENDIF IF A>0 





ENDIF 
A=VAL (SUBSTR(MILH,3,1)) 


IF VAL (SUBSTR(MILS,2,1))>0 .OR. 
VAL (SUBSTR(MILS,1,1))>0 























IF A>0 CRZ=CRZ+” e “ 
IF VAL (SUBSTR(MILH,2,1))>0 . ENDIF 
VAL (SUBSTR(MILH,1,1))>0 IF A > O 
CRZ=CRZ+” e “ CRZ=CRZ+UNTA)] 
ENDIF ENDIF 
IF A > 0 ENDIF 
CRZ=CRZ+UNTA] ENDIF 
ENDIF CRZ=CRZ+CHR(32) 
ENDIF A=VAL (SUBSTR(MILS,1,3)) 
ENDIF IF A>1 
CRZ=CRZ+CHR (32) CRZ=CRZ+TXTBLP [02] 
A=VAL (SUBSTR(MILH, 1,3)) ELSE 
IF A>1 CRZ=CRZ+TXTBLS [02] 
CRZ=CRZ+TXTBLP [03] ENDIF 
ELSE RETURN 
CRZ=CRZ+TXTBLS [03] * CONVERTE PARTE PARA UNIDADE * 
ENDIF PROCEDURE UNIDADE 
RETURN IF VAL (UNID)=0 
* CONVERTE PARTE PARA MIL * RETURN 
PROCEDURE MIL ENDIF 





IF VAL(MILS)=0 
RETURN 


IF VAL(MILS)>0 .OR. VAL(MILH)>0 
CRZ=CRZ+”, “ 
















ENDIF ENDIF 
IF VAL (MILH)>0 A=0 
CRZ=CRZ+”, “ A=VAL (SUBSTR (UNID, 1,1)) 
ENDIF IF A>0 
A=0 IF A=1 
A=VAL (SUBSTR(MILS,1,1)) IF VAL (SUBSTR(UNID,2,2))=0 
IF A>0 CRZ=CRZ+” Cem” 
IF A=l ELSE 
IF VAL (SUBSTR(MILS,2,2))=0 CRZ=CRZ+CTI[IA) 
CRZ=CRZ+”Cem” ENDIF 
ELSE ELSE 
CRZ=CRZ+CT(A) CRZ=CRZ+CTI[A) 
ENDIF ENDIF 





ELSE 
CRZ=CRZ+CT[A] 
ENDIF 
ENDIFP 


ENDIF 






A=VAL (SUBSTR(UNID,2,2)) 
IF A>9 .AND. A<20 
A=A-9 
IF VAL (SUBSTR(UNID,1,1))>0 
CRZ=CRZ+” a “ 





A=VAL (SUBSTR(MILS,2,2)) 
IF A>9 .AND. A<20 






A=A-9 ENDIF 
IP VAL (SUBSTR(MILS,1,1))>0 CRZ=CRZ+CZ [A] 
CRZ=CRZ+” a 4 ELSE 
ENDIF A=VAL (SUBSTR (UNID,2,1)) 
CRZ=CRZ+CZ[A) IF A>0 





ELSE 
A=VAL (SUBSTR(MILS,2,1)) 


IF VAL (SUBSTR(UNID,1,1))>0 
CRZ=CRZ+” e “ 
























CIÊNCIA MODERNA COMPUTAÇÃO LTDA. 
LIVROS TÉCNICOS E REVISTAS, NACIONAIS E ESTRANGEIRAS - PROGRAMAS 
MICROS, PERIFÉRICOS E SUPRIMENTOS 








MATRIZ: AV. RIO BRANCO, 156  FILIAL:RUA DO CATETE No.311 RUA DO OUVIDOR, 97 A 
LOJA SS 127 (SUBSOLO) LOJAS 108 E 311 H - CEP 22220-001 TEL.: 232-2494 

CEP 20043-900 (ED.AV.CENTRAL TELS.: 205-9747 / 285-7565 FAX (021) 240-4458 
TEL.: 262-5723 (KS) (RIO INFOSHOPPING) 












ENDIF 
IF A > 0 
CRZ4=CRZ+DZ [A] 
ENDIF 
ENDIF 
A=VAL (SUBSTR(UNID,3,1)) 
IF A>0 
IF VAL (SUBSTR(UNID,2,1))>0 .OR. 


VAL (SUBSTR(UNID,1,1))>0 


CRZ=CRZ+” a “ 
ENDIF 
IF A > 0 
CRZ=CRZ+UN[A)] 
ENDIF 
ENDIF 
ENDIF 
CRZ=CRZ+CHR (32) 
A=VAL (SUBSTR (UNID, 1,3)) 
IF A>1 
CRZ=CRZ+TXTBLP[01]+CHR(32)+”"Reais” 
ELSE 
CRZ=CRZ+TXTBLS [01] +CHR(32)+7Real” 
ENDIF 
RETURN 


* CONVERTE PARTE PARA CENTAVO * 
PROCEDURE CENTAVO 


IF VAL (CENT) =0 
RETURN 
ENDIF 
IF VAL (UNID)>0 .OR. VAL(MILS)>0 .OR. 


VAL (MILH)>O 


CRZ=CRZ+” e “ 
ENDIF 
A=0 
A=VAL (SUBSTR(CENT,1,2)) 
IF A>9 .AND. A<20 
A=A-9 
CRZ=CRZ+CZ [A] 
ELSE 
A=VAL (SUBSTR(CENT,1,1)) 
IFP A>0 
IF A >0 
CRZ=CRZ+DZ [A] 
ENDIF 
ENDIF 
A=VAL (SUBSTR(CENT,2,1)) 
IF A>0 
IF VAL (SUBSTR(CENT,1,1))>0 
CRZ=CRZ+” e “ 
ENDIF 
IF A > 0 
CRZ=CRZ+UNTA) 
ENDIF 
ENDIF 
ENDIF 
CR4=CRZ+CHR (32) 
A=VAL (SUBSTR(CENT,1,2)) 
IF A>1 
CRZ=CRZ+"Centavos” 
ELSE 
CRZ=CRZ+"Centavo” 
ENDIF 
RETURN 


IF SUBSTR(CRZ,T,1)=” “ 
A=0 
A=A+ (LEN (TX [I])+LEN(PALAVRA) ) 
IF A < 50 
IF LEN(TX[I])=0 
TX [I]=TX[1]) +PALAVRA 
ELSE 
TX[I]=TX[I]+CHR(32) 
TX[I]=TX[(I] +PALAVRA 
ENDIF 
PALAVRA="” 
ELSE 
B=0 
B=50-LEN(TX[I]) 


TX[I]=TX[(I] +REPLICATE(“*”,B) 


I=I+1 
TX[I]=TX [1] +PALAVRA 
PALAVRA="” 
ENDIF 
ELSE 


PALAVRA=PALAVRA+SUBSTR (CRZ,T,1) 


ENDIF 
NEXT T 
B=0 
B=50-LEN(TX[I]) 
IF B>0 

TX[I]=TX[1)] +FREPLICATE(“*”,B) 
ENDIF 
IF LEN(TX[1])=0 

TX (1) =REPLICATE(“*”,50) 
ENDIF 
IF LEN(TX[2])=0 

TX [2] =REPLICATE(“*”,50) 
ENDIF 
IF LEN(TX[3])=0 

TX [3] =REPLICATE(“*”,50) 
ENDIF 
IF LEN(TX[4])=0 

TX [4] =REPLICATE(“*”7,50) 
ENDIF 
RETURN 

* IMPRIMI O VALOR POR EXTENSO* 
PROCEDURE IMPRIMA 

DO WHILE .T. 

IF .NOT. ISPRINTER() 

6 24,00 SAY “Imp. não está 
preparada. <ESC>-Retorna, <ENTER>- 
Prossegue” 

TECLA=INKEY (0) 

IF TECLA=27 

GQ 24,00 SAY SPACE(80) 
RETURN 
ENDIF 
IF TECLA=13 
LOOP 
ENDIF 
LOOP 
ENDIF 
EXIT 
ENDDO 
G 24,00 SAY SPACE(80) 
e 24,00 SAY “Imprimindo...” 
SET DEVICE TO PRINTER 


6 PROW()+3,00 SAY “u= 
“+TRANSFORM(VALEXT,”999,999,999.99")+” 
“+REPLICATE (“=”",62) 


| * SEPARA O CRZ EM 4 STRINGS DE 50 POSICOES 
* 
PROCEDURE SEPARA 


TX [1)]=”” G PROW()+1,15 SAY TX[1) 

TX[2]=”7” G PROW()+1,15 SAY TX[2] 

TX[3]="” G PROW()+1,15 SAY TX[3] 

TX [4]=”"” Q PROW()+1,15 SAY TX[4] 

PALAVRA="” & PROW()+1,00 SAY REPLICATE(“=”,80) 
[si SET DEVICE TO SCREEN 

CRZ=CRZ+CHR (32) G 24,00 SAY SPACE(80) 

Y=0 RETURN 

Y=LEN(CRZ) 


FOR T=1 TO LEN(CRZ) 
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Usando FoxPro for Windows 
versão 2.5 

Sal Ricciardi 

Editora Campus 


540 páginas 


|FoxPro 


for Windows” 


RICCIARDI 





Usando Microsoft FoxPro for windows vers-ao 2.5 é 0 seu 
Guia para utilizacao e compreencao deste poderoso 
gerenciador de banco de dados e da linguagem Xbase 
padrao que o controla. Se precisar de uma explicacao 
detalhada de um projeto de banco de dados ou tiver de 
pesquisar rapidamente um procedimento para utilizar uma 
das mais ferramentas de consulta do FoxPro, você vai 
encontrar as respostas aqui. 

E quando estiver pronto para passar para tópicos mais 
avancados, o especialista em banco de dados, Sal Ricciard, 
estara pronto para ser seu guia com dicas, estratégias e 
solucoes nao encontradas na documentacao do produto. 
Cada capítulo introduz pelo menos um tópico fundamental 
e reforca os procedimentos corretos com exemplos práticos, 
de modo que você vai aprender com rapidez e lembrarã do 
que aprendeu. 





INFORMATICA 

Conceitos Básicos 
Fernando de Castro Velloso 
Editora Campus 


468 páginas 


* Fernando de Castro Velloso 


Ediora Lampus 


Destinado a estudantes de curso de introducao a 
informática, INFORMATICA: CONCEITOS BASICOS apresenta 
aos alunos os fundamentos da informática e os introduz 
progressivamente nos aspectos mais importantes do universo 
dos computadores, memórias, sistemas operacionais, 
unidades de entrada e saída, bancos de dados, linguagem, 
tecnologias baseadas em objetos, etc. 

Repeleto de ilustracoes, exemplos, exercicios e respostas, 
este livro foi escrito por um experiente professor de curso de 
introducao a informática para ser um guia no seu aprendizado. 

A apresentação dos assuntos é feita em uma linguagem 
agradável e clara, resulta de um livro de grande cobertrura, 
fundamental como ponto de apoio para o conhecimento. 

Para completar, apresenta uma sinopse história da 
informática no Brasil, um glossário e uma bibliografia que 
apliarao ainda mais o seu conhecimento. 
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DICAS ; EMAcetes 


DE SOFTWARE 


IBM PC: Dicas e Macetes de Software VOL. 1 E 2 
Laércio Vasconcelos 
Laércio Vasconcelos Computação Ltda. 


Dicas e Macetes de Software volumes 1 e 2 foram escritos para 


proporcionar aos usuários comuns de micros XT, 286, 386, 486 e 
Pentium o alcance de técnicas dominadas apenas pelos feras da 
microinformática. E apresenta solução para centenas de problemas 
decorrentes do uso do micro, evitando dores de cabeca e agilizando seu 
tempo. 

No volume 1 você val saber mais sobre: 

Cópias de disquetes protegidas, Acelerar a velocidade do disco, 
Recuperar discos formatados, Compactar arquivos Buffers de impressora, 
Backup, Medidas de proteção, Medição de desenpenho, Otimizar o seu 
CONFIG.SYS e o AUTOEXEC.BAT, etc. 

E no volume 2: 

Gerenciamento de meméória, Como acelerar a velocidade do acesso 
a disco, Recuperação de arquivos apagados, uso do DOUBLE SPACE e 
do STACKER, Programas Gráficos para MS-DOS e Windows, Animações 
gráficas, Novos comandos para MS-DOS 6, comunicação de dados por 
MODEM, etc. 
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Se seu 
problema é a 
portabilidade 
de programas 
executáveis e 
arquivos de 
dados... 


STANDARD MUNDIAL 

— 255 chaves de acesso direto 

— Criação de Popup Windows 

— Leitura “Up & Down” de arquivos 

— Estrutura Client-Sever LAN e RDBMS 
— Mais de 2.000.000 Sistemas em uso 


RM/PANELS 
Gerador Automático de Telas 
Sistema WYS/WYG 


RM/COMPANION 

Gerador Automático de Relatórios 
- Gera Programa Fonte 

— Gera Quernys ao Usuário Final 


RM/GRAPHS 

Gera Gráficos de negócios 

— 2D/3D 

— Definição Automática de Cores 


RM/CO« 
Ambiente de Desenvolvimento, com editor Janela múltipla 
e Desenho Animado 


RM/TOOLKIT 
Família de Utilitários 
— Mouse, Modem, Sistema Operacional, etc. 


RM/plusDB 
Interface Transparente com Banco de Dados Relacionais 
— Informix*, Oracle*, Progress*, etc. 


Mantém o Padrão dos Sistemas Abertos reduzindo seus 
tempos de programação em 80% 


DESENVOLVIMENTO DE APLICAÇÕES 


Quando você precisa de ferramentas para o desenvolvimento 
de aplicações superiores ao mercado, capacidade & 
funcionalidade & solução do RDBMS & superior a 4GE RM/ 
COBOL & TOOL'S são incomparáveis. 


Ferramentas de Desenvolvimento & Superfícies de Trabalho 
O RM/Cobol possui um poderoso de ferramentas integradas 
para definir e construir aplicações tais como: Menus Ring- 
Style, Pop-Down & Pull-Down, e ainda Dialog Boxes, Forms 
e Objetos para desenvolvimento de Aplicações RM/Cobol, 
oferece maior capacidade e flexibilidade para o 





É o único caminho! 


desenvolvimento, reduzindo o tempo de manutenção e 
possibilitando uma consistente interface com o usuário. 
Superfícies de Trabalho são interfaces funcionais que 
permitem definir regras de integridade e de negócios. 
Somente o RM/Cobol possui um desenho de interface 
altamente visual e amigável, possibilitando uma fantástica 
melhoria na produtividade do desenvolvimento de telas, 
estando bem acima dos métodos de códigos convecionais. 
O Help on line estã sempre presente para consulta. 


Dicionário de Dados 

O Dicionário de Dados do RM/Cobol é um repositário 
central para definir toda e qualquer informação usada na 
tela como: Borda, Lay-Out, Cores, Formato dos campos, 
Valiações Lógicas, Help on line, Mensagens de Ajuda e 
Erro, Prompt de cores campo a campo, e mais. Desta forma 
você ganha um controle de integridade de dados altamente 
eficiente, com vantagem adicional de uma reduzida 
codificação. 


Abertura para outros amblentes 

O RM/Cobol pode acessar outros Bancos de Dados como: 
INFROMIX, ORACLE e no final deste ano PROGRESS, 
INGRESS, pode acesar outras linguagens, através de 
“CALL” nas subrotinas. O “APLICATION PROGRAM INTER- 
FACE” permite criar subrotinas novas funções escritas em 
“C” e Assembler, o que possibilita inclusive acesso aoutras 
bases de dados. 







AData 


Representante para Brasil, Argentina, Paragual e Urugual 


ENDEREÇO NO BRASIL 

Av. BRIG. FARIA LIMA, 613 - 8º ANDAR CJ 84 
01451-000 - SÃO PAULO - SP 

TEL/FAX: (011) 829-7891 


ENDEREÇO NA ARGENTINA 

Av. CORRIENTES, 821 - 6º ANDAR (1043) 
BUENOS AIRES 

TEL.: (541) 4489426/7/8 - FAX: (541) 322-5240 











Tálegal, euchutei que o TIFé o padrão 
que dá amelhor compactação. Confesso 
que tenho uma certa “simpatia” por ele, 
sem razão nenhuma de ser. E já que o 
Luis Carlos Cividanes, de Uberaba, 
questionou isto resolvi tirar a prova dos 
nove. 

Notou a figura engraçadinha aí ao 
lado? Se não está ao lado do texto é 
porque o diagramador não seguiu minha 
orientação. Bem, essa figura tem 133 x 
178 pixels em preto e branco, ou seja, 
23.674 bits. Como em p&b não existe a 
necessidade de registro de cor e como normalmente os bits são 
agrupados em bytes (foi o chefe quem disse isso, portanto...), é de 
se esperar que um arquivo contendo tal imagem possua algo em 
tomo de 2.960 bytes. 

O que fiz foigravar esta figura usando diversos formatos e anotar 
o tamanho do arquivo gerado. Como os arquivos acrescentam 
cabeçalhos de identificação, além de compensarem o final das 
linhas, quando elas não terminam em bytes completos, era de se 
esperar arquivos um pouquinho maior que o tamanho real da figura. 

Aqui está o resultado: 





Compuserve GIF 89a.................nersreeees 1.846 bytes 
Tagged Image File Format TIFF (LZW)....... 2.422 bytes 
Word Perfect WPG versão 5.1.................... 2.721 bytes 
GEM Paint IMG........cessnecseseoereresceasero 2.848 bytes 


Sun Raster Images RAS..............c.e.s.. 3.236 bytes 
Zsoft Paintbrush PCX versão D............. 3.361 bytes 
PO PANE PIC. asa asia ins ds anus seda aa dona sa dads 3.361 bytes 


Grande surpresa, afinal o formato GIF foi produzido para arquivo 
de imagens com 256 cores. Viu só Luis Carlos, eu não estava 
tão errado assim em indicar o TIF, pelo menos em comparação 
com o cacareco do PCX. 

Ah! eu estava mais do que certo, afinal o GIF também usa a 
compressão LZW só que tem uma diferença em relação ao TIF: a 
imagem é comprimida duas vezes, por isso é que dá diferença. Além 
do mais, tente usar arquivos GIF com o Ventura Publisher, ou com 
o Page Maker e você verá que tenho razão. 

Bem, fico por aqui e espero que o pessoal da redação tenha um 
pouco de piedade e desligue o ar condicionado nestes tempos 
nebulosos (aqui no Rio está fazendo frio de 32 graus), brrrrrr..... 


Bob Pixel 


PS: você ainda não tem o disco Bitmap 1? O primeiro da série? 
Então não perca tempo e mande buscar logo o seu. O Bitmap vai 
entrar também nos BBS, ou seja, você pode pedir o disco na PRO 
KIT ou baixar do seu BBS preferido (se ele realmente tiver as últimas 
novidades). Só aconselho baixar do BBS quem tem modem de 
14.400, pelo menos, pois o arquivo compactado tem 
aproximadamente 900 Kbytes. 








da 
ANIMAÇÃO 


À galera que me perdoe, 
mas tava muito mole a seção 
animação. Tudo mastigado, 
decodificado, ajustado e 
programado. E a criatividade, 
onde fica? 

Então, o chefe mandou e eu 
cumpro: de agora em diante 
fica como desafio ao leitorcriar 
os roteiros de animação no nfs Dlga "SUN 
TOPVIEW. Pura moleza, não é 
mesmo? E para começar aqui 
está umbelo exemplo de veículo 
em movimento: um caminhão 
radar da época da guerra fria. 

Mãos à obra! 


Shape 3 








Shape 4 
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CARTAS 


INFORMAÇÃO D 


Com 


referência a matéria “Comunicação de 


Dados”, publiciado na MS138, de Abril de 94, 
tenho a satisfação de informar que em Curitiba - PR, o 
futuro já chegou nas transmições de dados. 
Ao contrárioi do que afirma a referida matéria, as SQUID 
BBS, node 12.1241/1 da R.B.T. (Rede Brasileira de 
Teleinformática), operada pelos SYSOPs Fernando Baibich 
e Ricardo Baibich ja vem utilizando um modem 28800 


BPS. 
Julio Cesar dos Santos 


<4] Sou leitor da revista e usuário 
de micros PC, Amiga e MSX e 
gostaria de receber mais infor- 
mações sobre os programas de 
controle de gerenciamento de BBS, 
como é e onde consegui-los e como 
usa-los. Gostaria também de 
informações sobre os melhores BBS 
cariocas e como acessãdos. 
Venho pedir as informações acima 
porque estou interessado em montar 
um BBS. Possuo uma quantidade 
suficiente de shareware para o Uso 
em um BBS. 

Comecei a ficar interessado neste 
ramo após ler a reportagem que 
vocês publicaram no No. 138 que foi 
escrita por Eduardo Poyart. Já 
possuia alguns interesses no 
assunto, possuo o modeme acesso 
a alguns BBS. 

Ficarei grato com a colaboração de 
vocês, agradando uma resposta. 
Leandro Sclammareila Perelra 
Praça Almirante Jaceguai, 71 apt.404- Bairro 
de Fátima 

20240-000 - Rio de Janeiro - RJ 











><] Compramos um 
microcomputador, 
sem ao menor termos 
idéia de suas reais 
utilidades; consultando 
revistas especializadas 
(PC Word, MICRO SISTE- 
MAS, etc.), lendo o 
cademo de informática e 
etc, assistindo o pro- 
grama informática e 
negócios e fazendo, 
atualmente, cursos no 
Senac, aos poucos 
estamos nos familiari 
zando com as maravilhas 
da informática. 
Conheço um pouco de 
música (toco teclado) e 
possuo um PSR 2500 
Yamara, no qual faço 
higiene mental. 

Leciono matemática e 
minha conpanheira Port- 
uguês; minha filha es- 
tuda desenho artístico, 
e já o pratica muito bem. 
Nosso micro: 

386 SX 40 Mhz - 4MB - 
HD 85 MB 

Gabinete de mesa - dois 
drivers: 3 1/2e 5 1/4 
Monitor SVGA Color 14" 
e Mouse 

MS DOS versão 6.21 
instalado 

Não temos impressora. 
Perguntamos: O que 
devemos adquirir para 





































utilizar o micro nas 
atividades acima”? 
Roberto Osório da Costa 
Lima 

R. Eulina Ribeiro, 226 - BI 03 - 
apt.604 - Eng. de Dentro 
20745-110- Rio de Janeiro - RJ 


Gostaria que 
vocês da revista, 
ou algum leitor, me 
enviassse uma carta 
contendo rotinas (em 
Clipper Summer 87) 
sobre a utilização de 
mouse nos programas 
nele feitos. 
Renato Luls de Paula 
Alves 
R. Cruzeiro do Sul, 688 - VI. 
Oliveira 
08790-170 - Mogi das Cruzes 
- SP 


Sou leitor e as- 

sinante da MS e 
por várias vezes, sem 
sucesso, consegui uma 
resposta desta, à res- 
peito de uma publicação 
realizada com o titulo de 
“Do Cobol para o Clip- 
per”, Publicada na MS 
95. 
Ficaria muito grato, se 
alguêm pudesse me 
ajudar informando como, 
e onde encontrar, um ex- 
emplarda referida revista, 





sos 


ou mesmo xerox, da 
publicação, pois em 
outras oportunidades 
que escrevi nãao logrei 
nenhum êxito. 

Cosmo Ferreira daSlva 
R. Joaquim Lapas Veiga 
N.666 apto. 43 À 
06040-100 - Osasco - SP 








Adquiri a pouco 

tempo o jogo 
Indianápolis 500 (do- 
mínio público) e, 
conforme o jogo é 
carregado, surge a 
demonstração onde 
indica atecla ESC para 
dar início. A partir daí, 
se dá o aparecimento 
de perguntas (em que 
ano esse carro 
ganhou? entre outras). 
Sendo de domínio 
público nãoapresenta 
nenhum arquivo com 
as respostas. 
Agradeço os que me 
enviarem as respos- 
tas. 
Marcelo Cogumelo 
R. Almirante Cal. da Graça, 
68 - Méier 
Rio de Janeiro - RJ 
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Hindos para 
o Workgroups 


Frank ]. Derfler Jr. e Les Freed 






mes 


DERFLER JR./FREED, GUIA PC 
MAGAZINE DO WINDOWS PARA 
WORKGROUPS - 324 PÁGS 
Guia para obtenção de informações so- 
bre instalação, recursos para grupos de 
trabalho e compatibilidade. Para usuá- 
rios, gerentes e administradores de sis- 

temas. 


Cód: 1 — Preço: 1 6,75 URV 


nbcos Básicas 
mEsphcações 
ras 
e Obemas 


a Gui Essencial 
per Inciantes 





IBPI, DOS 6 
MÉTODO RÁPIDO - 120 PÁGS 
Guia essencial para iniciantes e indis- 
pensável para quem já o utiliza. Re 
cheado de dicas básicas e explicações 
práticas e objetivas. 


Cód: 5-Preço: 8,31 URV 


CONECTIVIDADE 
DE BANCOS 

DE DADOS 
EMPRESARIAIS 


aa 


a“ Solaris 





HACKATHORN, CONECTIVIDADE 
DE BANCOS DE DADOS 
EMPRESARIAIS - 352 PÃGS 
Este importante livro fornece uma ava 
liação completa dos bancos de dados 
heterogêneos entre corporações, com 
ênfase especial na distribuição de apli 

cações empresariais para o desktop. 


Cód: 9 — Preço: 19,49 URV 





Dj E EM IMP NTHE 


PC MAGAZINE, DESVENDANDO O 
DOS 6 - 676 PÁGS 

Este livro baseia-se no mesmo tipo de 
treinamento utilizado com sucesso 
nos estabelecimentos de ensino da 
PC Learning Labs, espalhados nos 
Estados Unidos. Através de disquete 
com exemplos incluído no livro, o leitor 
aprenderá com o método mais fácil, 
mais rápido e mais eficaz. 


Cód: 2 - Preço: 30,41 URV 





IBPI, WINDOWS 3.1 
MÉTODO RÁPIDO - 108 PÁGS 
É um guia rápido e eficiente, ideal para 
iniciantes neste novo ambiente opera 
cional, e indispensável para quem já 
conhece e deseja tirar dúvidas de for- 
ma clara, objetiva e rápida. 


Cód: 6-Preço: 8,31 URV 





Nome: 
Telefone: 
Empresa: 
C.G.C.: 
Endereço: 


Data Pros 








Joe Salemi 


SALEMI, GUIA PC MAGAZINE PARA 
BANCO DE DADOS 
CLIENTE/SERVIDOR - 350 PÁGS 
Através de explicações em linguagem 
clara e conselhos oportunos, o leitor 
encontrará as tecnologias existentes 
e emergentes para o objetivo de sua 

empresa. 


Cód: 3 - Preço: 21 nf O URV 





IBP], EXCEL 4 

MÉTODO RÁPIDO - 120 PÁGS 
Esta obra mostra ao leitor os recursos 
do programa, estudando casos reais e 
que poderão ser usados no dia-a-dia 
de sua atividade e como base para o 
desenvolvimento de trabalhos mais 
complexos. 





Assinatura: 


Desing ro made 


Cor rag 
MA DavEre! 








PC MAGAZINE, DESVENDANDO O 
MICROSOFT ACCESS - 576 PÁGS 
Obra mais completa em nosso idioma 
sobre este novo produto da Microsoft. 
Já apresenta os comandos em portu- 
guês, incluindo um disquete com inúr 

meros exemplos. 


Cód: 4 - Preço. 31 65 URV 


FOR WINDOWS 


qPEMAP Sp dia 
iptu 


o viam Er 


e Corto it: 


» tor ac mas PN 
& Airis 


NAS CERA LD 


IBPI, WORD, BOR WINDOWS 2.0 
MÉTODO RÁPIDO — 200 PÁGS 
Amplamente ilustrado, este livro forne- 
ce dicas básicas e explicações práti- 
cas e objetivas para os usuários deste 

excepcional editor de textos. 


Cód: 8- Preço: 12,16 URV 




















Cód: 7 — Preço: 8,93 URV 
* SIM! Desejo adquirir os livros abaixo relacionados. Sendo assim, envio cheque nominal à 
É Livraria e Editora Infobook S.A., no valor total do pedido. Despesas postais por conta da editora. 
* Enviar seu pedido para: Rua Washington Luiz, 09 Gr. 402 — Rio de Janeiro — RJ - Cep. 20230-900. 
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PESQUISA MS 





SUA OPINIÃO VALE DUAS ASSINATURAS | J0GOS 


Você dá a sua opinião sobre os melhores programas de computador 


15/555 


do mercado e concorre automaticamente a duas assinaturas anuais da 80/285 


primeira revista brasileira de microcomputadores. 





SISTEMA OPERACIONAL 


PROCESSADOR DE TEXTO 


Wordperfect 
Carta Certa 


110/430 
120/360 50/210 


20/160 Graphos Ill 45/105 
20/120 Paint Brush 30/100 

Autodesk Animator... 10/60 

Print Master 

Power Point 

Print Shop 

Dr Genius 


Responda às questões de acordo com a sua preferência. 
No caso de usar mais de um programa de mesma classe, 
escolha apenas aquele que julga ser o mais adequado para 
o seu uso. Não importa a origem do software. Escreva de 
forma clara e legível o nome do programa. Remeta para 
ENTER PRESS Editora Ltda - Rua Washington Luis, 9 / 402 
- Rio de Janeiro/RJ] - CEP 20230-900 


Nome: 

Endereço: 

Cidade: a BF: 
CEP:NN  — Nideo: 





ASSINATURA ANUAL 
Marcus Fulvio Machado - Araxa - MG 





Edson da Silva Bentes - Porto Trombetas - PA 
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50/180 
50/1465 


CAD / EDITOR 3D 


3D Studio 
3D Image 


Professional Cad 10/80 


15/75 


Chessmaster 
Out of this World 10/65 


180/830 


0/70 


Indy 500 


DESKTOP PUBLISHING Sokoban 


Corel Draw 150/780 
Page Maker 110/4170 
Ventura 

Envision Publish 10/50 
Fantavision 


MS Publisher 0/30 Wing Commander..... 10/35 


Karateka 

Lemmings 

Carmem San Diego .. 10/30 
10/30 
10/30 


MELHOR PIOR 
Maxell .... 390/1560 Nashua.... 350/1470 
Verbatn ... 110/460 Verbatin... 110/430 
40/180 VAT......... 50/180 
- 10/80 Precision... 40/160 


10/30 








Processador de texto: 
Planilha eletrônica: 
Linguagem de programação: 
WUINAROS == EE EEE es 
SistemaOperacional ll 
Antivírus: 

Compactador: 

Editor Gráfico: 

Desktop Publishing: 

Cad/editores 3D: 

Jogo 1: 

Jogo 2: 

Outro: 

Melhor disquete: 

Pior disquete: 


























PuliConmecion ss - - hopphog cubo 


O sistema de BBS mais avançado do planeta, agora no Brasil para você ! 


Esqueça tudo o que você já viu sobre BBS, e conheça o 


Euliconnaction, um sistema de BBS super avançado uti- 
Rodando 


lizando o protocolo gráfico de 4º geração RiPscrip, que The Major BBS, o 
além de melhorar a velocidade de transmissão, permite a gerenciador a E 
visualização de gráficos com alta-resolução no estilo do dice jo 


Prodigy e América Online. Você não precisa mais decorar 
nenhum comando, apenas clicar com seu mouse. 





Uma completa Biblioteca de Arquivos contendo uma 
grande variedade de programas demos e shareware nas 
mais variadas categorias, Jogos, Utilitários, Fontes, Anti- 
Virus, Editores, Desktop, Educação, Multimídia, 
Comunicação, Programação, Arquivos de Som, e tudo o 
que você imaginar para DOS e WINDOWS. Também uma 
ampla Biblioteca de Imagens Digitalizadas, dos mais === ——— [55 
diversos assuntos, inclusive fotos XXX-Rated. CAI Id EL 


«. Biblioteca de Arquivos 
de fácil utilização, com 
pesquisas por palavras 
chave e marcação para 
um | download posterior. 





ER 7 DN 


AV 


Um avançado sistema de Correio Eletrônico (E-mail), com 
suporte para envio de Arquivos Anexados, Cópias 
Carbono, Listas de Distribuição, Aviso de Recebimento, 


«. COM uma interface 
totalmente gráfica, com 


Editor de Texto Full Screen com todos os comandos no suporte para mouse, 
seu vídeo através de botões. Teleconferências Online go óajaçã prt 
a Po ' sem a nece aqe 
para você bater papo com outros usuário, expandindo seu decorre clerdaA 
conhecimento e ampliando o seu relacionamento com complicados. 





Help É hand Sucapf teres Ootine | sam [qo fons É into Meu fi 
seio Fim MPscrin S7600 nei FOX — MiPterm 1.54,00 


pessoas que tenham o mesmo interesse. 


O SHOPPING OnLine, onde você pode adquirir produtos 
e serviços dos mais variados tipos com descontos, sem 
precisar sair da sua casa ou do seu escritório. Através do 





” Shopping OnLine, 


mam a 


À aqui você pode comprar 
seu próprio computador, você faz a cotação de preços, diversos produtos, | 
escolhe onde deseja comprar, a forma de pagamento e 4 a preços reduzidos, 

Rip E num piscar de olhos. 





o método de entrega. Você recebe o produto rapidamente 
no seu endereço, sem burocracia, filas e com toda a 
comodidade. 





, 
| 
Você ainda tem a sua disposição uma Central para Distribuição de FAX, pode ari de Concursos a 
vários premios, serviço de Boletins & Novidades e muito mais . ] 


Pullitonnectiom bbs £ é rep nino | 








Caixa Postal 108 - Santo André - SP - 09001-970 - Telefone: (011)412-7610 - Fax: (011) 444-1167 











“Não entre em fila e pague menos. 
Peça já o seu cartão Fenasoft 








Envie seu pedido juntamente com cheque nominal à 
Fenasoft Feiras Comerciais Ltda., Av. Osmar Cunha, 
251, 9º andar, Centro, Cep 88015-100, Florianó- 
polis - SC, Tel (0482) 24.4305, Fax (0482) 23.5249. 


CUSTO DO CARTÃO 
De 1a 31 de maio....................5 URVs” 














valendo para a Fenasoft'94. Se você já possui o seu 


cartão Fenasoft e, por algum motivo, deseja trocá-lo, 


De 1 a 30 de junho......................8 URVs. 


deve enviar o pedido juntamente com um cheque de 
10 URVs. 


De 1 de julho até o evento.......... 10 URVs” 


ENDEREÇO 


RERRRRERRESESSSPRSPESSZEnRS 
HRRRRREHRERSSRESSEBRASHMRNC ia 


PAÍS TELEFONE 


BERNjRRRGE Co 


É proibida a entrada de menores de 16 anos. 


a 


a 1 - Qual seu cargo na empresa onde trabalha? 5 - Qual a principal área de atuação de sua empresa? 

pS/ A Presidente E Diretor Superintendente | Representante de Vendas | A [L] Govemamental | L] Educacional QL] Revenda de Periféricos 
E- B Vice-Presidente F Gerente de Departamento J Analista de Sistemas B [LJ Agricultura, Mineração, Petróleo ) LU] Industrial R LJ Fabricante de Suprimentos 
: C Sócio G LJ Controller/Tesoureiro K Digitador C Transportes K LJ Construção Civil S [] Revenda de Suprimentos 

a D L JGerente Geral H LJ Consultor/Assessor D Comunicação L LJ Fabricante de Software T [] Bureau de Serviços 

po. E [LJ] Manufatura ML] Revenda de Software U L] Gráfica 

A 2 - Quantos empregados tem sua empresa? F = Financeira / Contabilidade NL] Fabricante de Hardware V H Jornalismo 

= G Seguros / Imobiliária O LJ Revenda de Hardware  WLI Editora 

2 A Mais de 5000 E 250 a 499 | 25 a 49 à ga 

A 8 1000 a 5000 E 100 a 249 ) 10 a 24 H [] Médica / Saúde P [] Fabricante de Periféricos 

É C 750 a 999 G 75 a 99 K 5a? 
| o cê dadas ore Each EO ad 6 - Quais as principais aplicações do computador na sua empresa? 
A 3 - Qual seu poder de decisão para compras na empresa? A L] Contabilidade G L] Desenv. de aplic. de programas 

o A Autoridade total C LJ Autondade limitada E = Pouco envolvimento Ê O is pe dé Bio dé Dod & L] peter a cs manufatura 
2 B Autoridade alta D |] Recomenda produtos F Nenhum envolvimento enciameno de Bco. de Lados entífica / Engenharia 

= D E Correio Eletrônico J H Editor de Textos 
, E 2 E Desk Top / Cad Cam K LI Gerenciamento de Processos 
[Re 4 - Qual o volume de vendas de sua empresa? F [) Design Gráfico / Multimídia 

5 = US$ 500 milhões ou mais E US$ 25 a 49 milhões | US$ 500 a 749 mil 
ro B US$ 100 a 499 milhões F US$ 10 a 24 milhões J US$ 250 a 499 mil 
| > C US$ 75 a 99 milhões  GLIUS$ 1a9 milhões K LJ US$ 100 a 249 mil 
* D LI] US$50a74milhões HLI US$ 750 a 999 mil L L ] menos de US$ 100 mil 


e 


